Copier - créer nouveau classeur - enregistrer - coller

Bonjour,

Je cherche à copier mes cellules, créer un nouveau classeur, l'enregistrer puis coller mes cellules, mais ça ne fonctionne pas

Le code bloque sur ma dernière ligne "paste"

Pouvez-vous me dire pourquoi ? Je cherche mais je ne trouve pas l'explication. Est-ce qu'à cause de l'enregistrement mon "copy" n'existe plus ?

Merci et bonne journée

ps : si vous savez comment coller mes cellules sur les 3 feuilles plutôt que feuille par feuille ça m'intéresse aussi, je mets mes données en forme par après, feuille par feuille

Cells(Rows.Count, 1).End(xlUp).Copy

Dim nouveau_classeur As Workbook
Dim adresse As String
adresse = ADRESSE SHAREPOINT/rapport fait le_" & Format(Date, "dd-mmmm-yyyy") & ".xlsm""" 
Set nouveau_classeur = Workbooks.Add

nouveau_classeur.SaveAs Filename:=adresse
ActiveSheet.Name = "Rapport Dominique"
nouveau_classeur.Worksheets.Add.Name = "Rapport Magda"
nouveau_classeur.Worksheets.Add.Name = "Rapport Samira"

Worksheets("Rapport Samira").Paste

c'était bien ça : coller avant d'enregistrer