Sub test()
i = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
For Each X In Range("A1:" & Range("A65536").End(xlUp).Address)
If X <> "" Then
Range(X.Address, Cells(X.Row, 256).End(xlToLeft)).Copy ([Feuil2].Cells(i, 1))
i = i + 1
Else
If Cells(X.Row, 256).End(xlToLeft).Column <> 1 Then
Range(X.Address, Cells(X.Row, 256).End(xlToLeft)).Copy ([Feuil2].Cells(i, 1))
i = i + 1
End If
End If
Next
[Feuil2].Activate
End Sub