Incrémentation nom d'onglet et copie dans un nouveau classeur

Bonjour.

Je dois finaliser un outil de facturation. Mes macros fonctionnent, mais j'aimerais peaufiner le tout. En gros :

Bouton Sauvegarder la facture - Je voudrais que la sauvegarde se fasse dans un nouveau classeur, plutôt qu'à la suite des onglets. Je n'ai pas trouvé le code pour faire cela. De plus, j'aimerais savoir comment faire en sorte que le nom du nouveau classeur soit : Facture+"D5"(le nom du destinataire).

Pouvez-vous m'aider ? Voici le code utilisé présentement :

Sub CopieFeuilles()

Sheets("Facture").Select

Sheets("Facture").Copy After:=Sheets(2)

NomFeuille = "Facture NOM"

ActiveSheet.Name = NomFeuille

End Sub

Modifié titre du sujet

Bonjour

Code à essayer et à lier à votre bouton "Sauvegarder" :

Sub CopieFeuilles()
Dim Fichier As String

Fichier = "Facture_" & ThisWorkbook.ActiveSheet.Range("D5")
If ThisWorkbook.ActiveSheet.Range("D5") <> "" Then
    Sheets("Facture").Copy
    With ActiveWorkbook
        .SaveAs Fichier
        .ActiveSheet.DrawingObjects.Delete
    End With
End If
End Sub

Vous complétez votre feuille "Facture"

Une fois le click sur sauvegarde, la feuille sera copiée dans un nouveau classeur qui sera nommé comme demandé.

J'ai également ajouté une instruction pour supprimer les boutons

Une remarque : Si vous utilisez excel MAC (comme je le vois dans un module), veillez à défusionner D5 et E5 pour le nom. Sans quoi le code va probablement renvoyer une erreur

Cordialement