Sub CreerTxt()
Dim TDon(), L As Long, C As Long, ZTxt As String, Champ As String
TDon = ActiveSheet.UsedRange.Value
Chemin = ThisWorkbook.Path & "\"
NomFic = ThisWorkbook.Name & " " & Format(Now, "ddmmyyyyhhmmss") & ".txt"
Open Chemin & NomFic For Output As #1
For L = 1 To UBound(TDon, 1)
ZTxt = ""
For C = 1 To UBound(TDon, 2)
Champ = String(Choose(C, …, …, …, …, …, …, …, …, …, …, …, …, …, …, …, …, …, …, …, …, …, …, …), " ")
LSet Champ = TDon(L, C)
ZTxt = ZTxt & Champ: Next C
Print #1, ZTxt: Next L
Close #1
End Sub