hello everyone sorry to resume this old thread
how to do with snb 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