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) & "." ' avec point
c = c + 1
Wend
a.writeline s 'write line
Next r
End Sub