Sub Extrait_txt_Egal()
Close
NomFAO = "C:\Users\Nom\Desktop\CsvAvecEgal.txt"
NomFAE = "C:\Users\Nom\Desktop\CsvAvecEgal2.txt"
Open NomFAO For Input As #1
Open NomFAE For Output As #2
While Not (EOF(1))
Input #1, a$
If a$ Like "*=*" Then b$ = Replace(a$, "=", ""): Print #2, b$: GoTo Suite
'Stop
Print #2, a$
Suite:
Wend
Close
End Sub