Sub CopierEntreDeuxClasseurs()
'Pour copier entre 2 classeurs, on utilise des variables
'On met cette macro dans un module du classeur de destination
Dim wbdest As Workbook, wbS2 As Workbook
Set wbS2 = Workbooks("ClasseurSource2.xls")
Set wbdest = ThisWorkbook ' c'est le Classeur1, classeur de destination
wbS2.Sheets("feuil1").Range("A1:" & Cells([A65536].End(xlUp).Row, _
[IV4].End(xlToLeft).Column).Address(0, 0)).Copy wbdest.Sheets("feuil1").Range("A1").End(xlDown).Offset(1, 0)
wbdest.Activate
End Sub