Sélection & copie lignes vides et/ou non vides

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