XL 2010 Copier un tableau d'un classeur1 à un classeur2

Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)

Set CS = ThisWorkbook 'définit le classeur source CS
Set OS = CS.Worksheets("Feuil1") 'définit l'onglet source OS
Set CD = Workbooks("Classeur2.xlsm") 'définit le classeur destination CD
Set OD = CD.Worksheets("Feuil1") 'définit l'onglet destination OD
'copie l'ensemble des cellules adjacentes à A1 de l'onglet OS et la colle dans la cellule A1 de l'onglet OD
OS.Range("A1").CurrentRegion.Copy OD.Range("A1")
End Sub

Sub Macro1()
'
' Macro1 Macro
'

'
    '1ere méthode par un simple copier (Ctrl+C) coller(Ctrl+V)
    Range("A1:R8").Select
    Selection.Copy
    Windows("Classeur2.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
   
    Windows("Classeur1.xlsm").Activate
    Application.CutCopyMode = False
   
    '2eme méthode: copie de la feuille dans le classeur 2
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy After:=Workbooks("Classeur2.xlsm").Sheets(3)
    Range("B16").Select
   
    '3eme méthode: copie de la feuille dans un NOUVEAU Classeur --> pour l'exemple, on enregistre sous le nom "Classeur2.xlsx
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\vgendron\Documents\Classeur2.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub