Sub Bouton1_QuandClic()
Dim plage As Range
Dim i As Integer
Dim j As Integer
Dim t As String, texte As String
Set plage = Range("a1").CurrentRegion
Open "c:\test.txt" For Output As #1
For i = 1 To plage.Rows.Count
For j = 1 To plage.Columns.Count
t = Space(30 - Len(plage(i, j))) & plage(i, j)
texte = texte & t
Next j
Next i
Print #1, texte
Close
End Sub