macro fichier texte

Sub csvfile()
 'SOURCE:http://www.ozgrid.com/forum/showthread.php?t=63300&highlight=csv+export
    Dim fs As Object, a As Object, i As Integer, s As String, t As String, l As String, mn As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\xltext.csv", True)
     
    For r = 1 To Range("A65536").End(xlUp).Row
        s = ""
        c = 1
        While Not IsEmpty(Cells(r, c))
        s = s & Cells(r, c) & Chr(32) ' avec un espace
            c = c + 1
        Wend
        a.writeline s 'write line
    Next r
     
End Sub