Sub test3()
Dim fichier As Variant, i&, txt$
fichier = Application.GetOpenFilename("Text Files (*.txt;*.csv), *.txt;*.csv", 1, "ouvrir un fichier", , True)
If Not IsArray(fichier) Then
If fichier = False Then Exit Sub
fichier = Array(fichier)
End If
For i = LBound(fichier) To UBound(fichier)
If Not InStr(1, fichier(i), "(Remaster)") Then
txt = GetTextOfFich(CStr(fichier(i)))
txt = ParseText(txt)
newfichier = SaveRemasterAS(txt, CStr(fichier(i)))
End If
Next
MsgBox "conversion des fichiers terminée!"
End Sub