ChDir ThisWorkbook.Path
Open "classeur1.txt" For Input As #1
Open "classeur5.txt" For Output As #2
'--1er fichier
Do While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Loop
Close #1
'-- 2e fichier
Open "classeur2.txt" For Input As #1
' Line Input #1, ligne ' 1ere ligne
Do While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Loop
Close #1, #2