Sub Fichier_Texte()
Dim Txt$, Liste(), i&, j&, Lng&, Var&
Liste = Array(0, 2, 10, 1, 30, 20, 5, 12, 12, 12, 12, 12, 2, 13)
Open "D:\temp\Résultat recherche.txt" For Output As #1
With ThisWorkbook
With .Sheets("TEST44")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To 13
Lng = Len(.Cells(i, j)): Var = Liste(j) - Lng
Txt = Txt & Application.WorksheetFunction.Rept(" ", Var) & .Cells(i, j)
Next j
Print #1, Txt
Txt = ""
Next i
End With
End With
Close #1
End Sub