Copy / Paste même nom de feuilles sur fichiers différents

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

Set CS = Workbooks("Europe.xlsm") 'définit le classeur source CS (extension à adapter à ton cas !)
Set CD = Workbooks("Noram.xlsm") 'définit le classeur destination CD (extension à adapter à ton cas !)
For Each OS In CS 'boucle sur tous les onglets source OS du classeur source CS
    Set OD = CD.Worksheets(OS.Name) 'définit l'onglet destination OD
    Set DEST = OD.Range("D1") 'définit la cellule de destination DEST
    'copy la plage de D1 à la dernière cellule du l'onglet et la colle dans DEST
    OS.Range(OS.Cells(1, 4), OS.Cells(Application.Rows.Count, Application.Columns.Count)).Copy DEST
Next OS 'prochain onglet de la boucle
End Sub

Option Explicit


Sub Essai()
  Dim i As Byte: Workbooks("Noram").Activate: Application.ScreenUpdating = False
  For i = 1 To 40
    With Workbooks("Europe").Worksheets(i)
      .Range(Cells(1, 4), Cells(Application.Rows.Count, Application.Columns.Count)).Copy Worksheets(i).[D1]
    End With
  Next i
End Sub