Sub EcritFichier()
Application.ScreenUpdating = False
DL = Range("A65500").End(xlUp).Row ' Dernière ligne
Nom = ThisWorkbook.Name ' Récupération du nom de fichier
Nom = Mid(Nom, 1, Len(Nom) - 5) & ".txt" ' Transformation en nom txt
Chemin = CurDir & "\" ' Récupération du chemin
Open Chemin & Nom For Output As #1 ' Ouverture d'un fichier texte
For L = 1 To DL ' Pour toutes les lignes
Chaine = ""
For C = 1 To 6 ' Et toutes les colonnes
Chaine = Chaine & ";" & Cells(L, C) ' Concaténation des cellules, séparateur ";"
Next C
Print #1, Mid(Chaine, 2) ' Ecriture de la chaine dans fichier texte
Next L
Close #1 ' Ecriture fichier texte et fermeture
End Sub