Copier plusieurs feuilles dans un nouveau classeur

Bonsoir ,
j'ai un classeur dans lequel la feuil2 contient une facture , cette facture change selon les données saisis en feuil1 je veux faire un bouttoncommand dans la feuil2 qui a chaque fois que je clique dessous la feuil2 est copiée dans un autre classeur défini à l'avance qui est nommé " historique facture" le problème que j'ai c'est que jai essayé avec ce code
Feuil2.Name = Feuil1.ComboBox1 + Feuil1.ComboBox3
Feuil2.Copy
Application.Dialogs(xlDialogSaveAs).Show

mais à chaque fois que je clique la feuil2 n'est pas ajoutée au même classeur mais il crée un nouveau classeur , c'est à dire mon but c'est d'avoir dans le classeur historique toutes les feuilles que j'ai copié

Merci à vous