Recuperer nom fichier excel variable vba

Bonjour!

J'exécute une macro faisant des copier-coller d'un classeur Excel à un autre. La macro est liée à un bouton sur une feuille du classeur contenant les données sources.

En écrivant le nom du classeur source en dur dans la macro, tout va bien. Mais le classeur source sera à l'avenir renommé. Comment faire pour récupérer le nom du fichier source dans une variable afin que ca continuent de fonctionner?
mon fichier copie s apelle class et le source change tousle temps
voici la macro mais ca ne fonctione pas j'ai dut oublier quelque chose

Sub Macro1()
'
' Macro1 Macro
'
'
Dim nom As String
nom = ActiveWorkbook.Name


nom.Activate
Range("A1").Select
Selection.Copy
Windows("Class.xlsx").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

nom.Activate
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Class.xlsx").Activate
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

nom.Activate
Range("C1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Class.xlsx").Activate
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub