Sub testJJ()
Dim I As Long
Feuil2.Cells.Clear
With Feuil1
For I = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row Step 4
.Range(.Cells(I, 1), .Cells(I + 3, 1)).Copy
With Feuil2
.Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row - (.[a1] <> "")).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
Next
End With
End Sub