Sub ChampsFixes()
Dim TDon(), L As Long, C As Long, Z As String * 10, Rec As String * 60
TDon = Feuil1.[A2:F2].Resize(Feuil1.[A1000000].End(xlUp).Row - 1).Value
Open ThisWorkbook.Path & "Exportation.txt" For Output Access Write As #1
For L = 1 To UBound(TDon, 1)
For C = 1 To UBound(TDon, 2)
LSet Z = TDon(L, C)
Mid$(Rec, 10 * (C - 1) + 1, 10) = Z
Next C
Print #1, Rec: Next L
Close #1
End Sub