Set oFSO = New Scripting.FileSystemObject
Set Fichier1 = oFSO.GetFile(FichiersAOuvrir(i))
Nom = oFSO.GetBaseName(FichiersAOuvrir(i))
Set oF0 = oFSO.CreateTextFile(Nom & "-Epure-" & ".txt")
oF0.Close
Set oF2 = oFSO.GetFile(Nom & "-Epure-" & ".txt")
Set Fichier2 = oF2.OpenAsTextStream(ForAppending)
Set Fichier1 = oFSO.OpenTextFile(FichiersAOuvrir(i), 1)
While Not Fichier1.AtEndOfStream
StrLigne = Fichier1.ReadLine
Fichier2.WriteLine
Wend
Close Fichier1.Close
Close Fichier2.Close