Private Sub export_en_txt(Feuille$, Plage$, Chemin$, NomFichier_EXPORT$)
Dim fs, a, s$, r&, c&, pl&, dl&, dc&, PLG As Range
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Chemin & NomFichier_EXPORT & ".txt", True)
With ThisWorkbook.Sheets(Feuille)
Set PLG = .Range(Plage): pl = PLG.Cells(1, 1).Row
dl = PLG.Rows.Count + pl: dc = PLG.Columns.Count
For r = pl To dl - 1
s = Empty: c = PLG.Cells(1, 1).Column
While Not IsEmpty(.Cells(r, c))
s = s & .Cells(r, c) & Chr(59)
c = c + 1
Wend
a.writeline s
Next r
End With
End Sub