Bonjour,
à tester,
Sub test()
Dim sh1, sh2
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
For i = 2 To sh1.Cells(Rows.Count, 1).End(xlUp).Row Step 2
col = sh2.Cells(1, Columns.Count).End(xlToLeft).Column + 1
sh2.Cells(1, col).Value = sh1.Cells(i, 1).Value
sh2.Cells(2, col).Value = sh1.Cells(i + 1, 2).Value
sh2.Cells(3, col).Value = sh1.Cells(i + 1, 3).Value
sh2.Cells(4, col).Value = sh1.Cells(i + 1, 4).Value
Next
sh2.Columns("A:A").Delete Shift:=xlToLeft
End Sub