Sub Macro_GC()
Dim w(1 To 2) As Worksheet, Nb_lignes&, i&
Set w(1) = Worksheets("Préparation_commandes")
Set w(2) = Worksheets("Macro_BS")
Nb_lignes = w(1).Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To Nb_lignes
w(1).Cells(i, 1).Copy Destination:=w(2).Cells(27 + i, 1)
w(1).Range(w(1).Cells(i, 6), w(1).Cells(i, 7)).Copy Destination:=w(2).Cells(27 + i, 2)
w(1).Cells(i, 4).Copy Destination:=w(2).Cells(27 + i, 4)
Next i
End Sub