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