Bonjour j'ai écrit cette macro qui élimine les ligne vides d'un fichier TXT
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub suprime_ligne_vide()
    Dim data
    On Error GoTo finSub
    Open "C:\TEXTE1.TXT" For Input As #1
    Open "C:\TEXTE2.TXT" For Append As #2
    Do Until EOF(1)
        Input #1, data
        If data <> "" Then Print #2, data
    Loop
    Close #1
    Close #2
    Kill "C:\TEXTE1.TXT"
    Name "C:\TEXTE2.TXT" As "C:\TEXTE1.TXT"
finSub:
End Sub
Mais j'ai un problème

Si il existe une ligne avec une virgule la macro considère que la virgule est une ligne vide ,l'élimine et passe à la ligne suivante

exemple :
attention à la virgule, aidez moi!

donne 2 lignes

attention à la virgule
aidez moi!