Sub importe()
Dim Fin As Long
Dim Tourne As Long, colonne As Long
Dim cible As Long
Fin = Sheets("import").Range("A" & Rows.Count).End(xlUp).Row
Sheets("import").Range("A1:F1").Copy
Sheets("Resultat").Range("A1:F1").Select
Sheets("Resultat").Paste
cible = 1
For Tourne = 2 To Fin Step 6
For colonne = 1 To 6
Sheets("import").Range("A" & Tourne).Offset(colonne - 1, colonne - 1).Copy
Sheets("Resultat").Range("A1").Offset(cible, colonne - 1).Select
Sheets("Resultat").Paste
Next colonne
cible = cible + 1
Next Tourne
End Sub