XL 2010 Suppression de lignes vides

Sub Concatener_TXT()
Cells(2, 2).ClearContents
For i = 1 To Range("A1048576").End(xlUp).Row
    Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
Next
Columns("A:B").ColumnWidth = 50
Columns("A:B").AutoFit
End Sub

For i = 1 To Range("A1048576").End(xlUp).Row
   If Cells(i,1)<>"" Then Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
Next
'
'  OU
'For i = 1 To Range("A1048576").End(xlUp).Row
'   If Not IsEmpty(Cells(i,1)) Then Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
'Next

Sub Concatener_TXT()
Dim i As Long
    Cells(2, 2).ClearContents
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
    Next
    Cells(2, 2) = Right(Cells(2, 2), Len(Cells(2, 2)) - 1)
    Columns("A:B").ColumnWidth = 50
    Columns("A:B").AutoFit
End Sub

Sub Concatener_TXT()
Dim i As Long
    Cells(2, 2).ClearContents
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
    Next
    Cells(2, 2) = Right(Cells(2, 2), Len(Cells(2, 2)) - 1)
    Columns("A:B").ColumnWidth = 50
    Columns("A:B").AutoFit
End Sub

Sub test()
Dim t
t = Application.Transpose(Range([A2], Cells(Rows.Count, 1).End(3)))
[B2] = Join(t, Chr(10))
End Sub