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