Sub a()
Dim i&, L&, Z&, X&
L = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To L
Z = Cells(i, 1).End(xlToRight).Column
Cells(i, 2).Resize(, Z).Copy
X = Feuil2.Cells(Rows.Count, "B").End(xlUp).Row
Feuil2.Cells(X + 1, "B").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Feuil2.Cells(X + 1, 1).Resize(Z - 1).Value = Cells(i, 1).Value
Application.CutCopyMode = False
Next
End Sub