Sub colonne()
Dim Cible As Integer, x As Integer, y As Integer
Dim Resultat As String
Dim Cell As Range
x = Range("A65536").End(xlUp).Row
Cible = FreeFile
Open "C:\test\test.txt" For Append As #Cible
For Each Cell In Range("A2:A" & x)
Resultat = ""
Resultat = Cell.Offset(0, 1)
Print #Cible, Resultat
Next Cell
Close #Cible
End Sub