Re : Macro Copier coller à la suite
Sub copier()
Dim chemin$, i%
chemin = ThisWorkbook.Path & "\"
For i = 1 To 2
Workbooks.Open chemin & "fichier " & i & ".xlsx"
ActiveWorkbook.Sheets("Source" & i).Range(Cells(2, 1), Cells.SpecialCells(xlCellTypeLastCell).Address).Copy...