Sub qsdqsdq()
lig = 11
fin = Cells(1, Columns.Count).End(xlToLeft).Column
For col = 1 To fin Step 5
ad = Cells(1, col).Address(0, 0) & ":" & Cells(1, col + 4).Address(0, 0)
ActiveSheet.Range(ad).Copy Destination:=Range("A" & lig)
ActiveSheet.Range(ad).Copy Destination:=Sheets("Feuil2").Range("A" & lig - 4)
lig = lig + 1
Next col
End Sub