fastest way to copy multiple range to multiple sheets

thanks snb it's exactly what i do but i can't post yesterday

:crying: i tried to post yesterday several times but a message came all the time something like the post reached its limit

Thanks both Sam & snb.
Gives me something to work on/with again.

sorry that's right
as i say what i liked to post yesterday was my thanks for you and samT
if I could have posted my new file you will see a module with name jolivanes
nevertheless thank you very much Jolivanes ,samT & snb

hello everyone sorry to resume this old thread
how to do with snb code

Code:

---

Sub snb()
    Dim sn As Variant
    sn = Feuil1.Cells(10, 1).CurrentRegion.Offset(1)
    Feuil2.Cells(14, 1).Resize(UBound(sn), 4) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 4, 3))
    Feuil3.Cells(14, 1).Resize(UBound(sn), 4) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 5, 3))
    Feuil4.Cells(14, 1).Resize(UBound(sn), 4) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 6, 3))
    Feuil5.Cells(19, 3).Resize(UBound(sn), 3) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 4))
    Feuil5.Cells(19, 7).Resize(UBound(sn), 1) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(3))
End Sub

---

if i don't want to copy what is below the table (outside the table)
the table starts in 10.1 and ends in maximum in 196.6

an empty line added below the table solve the problem:banghead::banghead::banghead: