Exporter des cellules dans un classeur fermé

Bonjour,
Après plusieurs recherche sur internet et des essais non concluant, je viens vers vous pour m'aider :

Je voudrais faire une macro VBA :

'Sur le classeur source (FeuilleSource)
'Remplir les éléments en cellule A1, B3, C2 et A10
'Cliquer sur le bouton imprimer
'Copie des éléments
' ouverture du classeur cible (FeuilleCible)
' aller à la première ligne non vide
' Collage des éléments
' Enregistrement du classeur cible
' Fermeture du classeur cible
' Revenir sur le classeur source
'Ouvrir une msgbox
'demander si nous voulons effacer les données du tableau après impression sans enregistrement ?
'Oui
' Imprimer le tableau
' Effacer
'Non
'Imprimer le tableau
'ouverture de la fenêtre d'enregistrement
'effacer le tableau
'retourner sur le tableau

Ce que j'ai essayé de faire :

Sub Feuilles()

Dim FeuilleSource As Excel.Worksheet, FeuilleCible As Excel.Worksheet
Dim NomSource As String, NomCible As String
Dim NumLigne As Long

NomSource = "C:\Users\S045000\Desktop\FeuilleSource.xlsm"
NomCible = "C:\Users\S045000\Desktop\FeuilleCible.xlsm"

    Set FeuilleCible = Workbooks.Open(NomCible).Worksheets("Feuil2")
    Set FeuilleSource = Workbooks(NomSource).Worksheets("Feuil1")
    
    NumLigne = FeuilleCible.Range("A1048576").End(xlUp).Row + 1
 
    With FeuilleSource
FeuilleSource.Range("A1").Copy

With FeuilleCible
FeuilleCible.Range("A" & LastRow + 1).PasteSpecial xlPasteValues
    
    ActiveWorkbook.Save
    ActiveWindow.Close
    
  
     Application.ScreenUpdating = False
    Set FeuilleCible = Nothing
    Set FeuilleSource = Nothing

End Sub

Mais ça ne fonctionne pas ...

Merci de m'apporter votre aide.
Cordialement