Autres annulation discussion

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