FichiersAOuvrir = Application.GetOpenFilename(, , , , True)
If IsArray(FichiersAOuvrir) Then
For i = LBound(FichiersAOuvrir, 1) To UBound(FichiersAOuvrir, 1)
Set oFSO = New Scripting.FileSystemObject
Set Fichier1 = oFSO.GetFile(FichiersAOuvrir(i))
Set oF0 = oFSO.CreateTextFile("mandat_" & Now & ".txt")
oF0.Close
Set oF2 = oFSO.GetFile("mandat_" & Now & ".txt")
Set Fichier2 = oF2.OpenAsTextStream(ForAppending)
Set Fichier1 = oFSO.OpenTextFile(FichiersAOuvrir(i), 1)
While Not Fichier1.AtEndOfStream
StrLigne = Fichier1.ReadLine
Fichier2.WriteLine StrLigne
Wend
next (i)
end if
Close Fichier1.Close
Close Fichier2.Close