ChDir ThisWorkbook.Path
Open "classeur1.csv" For Input As #1
Open "classeur5.csv" 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.csv" For Input As #1
Line Input #1, ligne ' 1ere ligne (titres que l'on ne prend pas)
Do While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Loop
Close #1, #2