Hi,

I've just designed this this week ;-)

S_Separateur=";"
Set r_PlageData = range("A1").currentregion

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile(s_Fichier_CheminComplet, -1, -1)

For Each Line In r_PlageData.Rows
s_Temp = ""
For Each Cell In Line.Cells
s_Temp = s_Temp & CStr(Cell.Text) & s_Separateur
Next Cell

f.writeline s_Temp

' if you're using open method, try this
'Print #1, StrConv(s_Temp, vbUnicode) & StrConv(vbCrLf, vbUnicode); 'keep the comma at end of the instruction.

Next Line

f.Close

Comma concatenation could be completed like this :
' http://www.ozgrid.com/forum/showthread.php?t=160680&page=2
' you could also then come up with a solution that use this technique and Excel's SaveAs "unicode" function.