sub test
Dim Plage As Object, Ligne As Object, Cellule As Object, Temp As String, Separateur As String
Separateur = ";"
ChDrive "C"
ChDir "C:\Documents and Settings\username\Bureau"
Sheets("tafeuille").Select
Set Plage = ActiveSheet.UsedRange
Open "tonfichiertexte.txt" For Output As #1
For Each Ligne In Plage.Rows
Temp = ""
For Each Cellule In Ligne.Cells
Temp = Temp & CStr(Cellule.Text) & Separateur
Next
Print #1, Temp
Next
Close
end sub