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