Sub SaveFichierFormatTexte()
Dim NomFeuil$, NomFich$, Tablo As Variant, H&, J&, L&, I&, X$
' INIT .
NomFeuil = "Détail" '<<<<< nom de la feuil !?
NomFich = "Texte.txt" '<<< nom du fichier !?
ThisWorkbook.Sheets(NomFeuil).Copy: DoEvents
With ActiveWorkbook.Sheets(NomFeuil)
.Range("B1,G1") = "R" & String(8, Chr(160))
.Range("M1") = "R" & String(6, Chr(160))
.Rows(1).Replace "é", "e", xlPart
Tablo = .UsedRange 'matrice, plus rapide
H = UBound(Tablo)
End With
For J = 1 To UBound(Tablo, 2)
L = 0
For I = 1 To H
X = Tablo(I, J)
If Len(X) > L Then L = Len(X)
Next
For I = 1 To H
X = Tablo(I, J)
If Len(X) < L Then Tablo(I, J) = X & String(L - Len(X), Chr(160))
Next
Next
ActiveSheet.UsedRange = Tablo
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & NomFich, xlText
ActiveWorkbook.Close
ThisWorkbook.Activate
End Sub