Finaliser mon code

Bonjour à toutes et à tous,

Je sollicite votre aide pour compléter (ou corriger) mon code VBA.

Je remplis ma feuille "Modèle".

Une fois le mois terminé, je clique sur le bouton sauvegarder.

Ma feuille est alors enregistrée après la feuille "Modèle" et renommée en fonction du mois.

Je reviens à ma feuille "Modèle" pour saisir un nouveau mois.

Mon problème, c'est qu'elle s'enregistre en se renommant DECEMBRE, et ce ,quelque soit le mois en cours.

Pourriez-vous m'expliquer ce qu'il me manque dans mon code ou s'il y a une erreur?

Je vous remercie tous pour votre aide,

A bientôt.

bonsoir,

proposition de correction

Private Sub CommandButton1_Click()

Dim mois As String, x As Date
  Sheets("Modèle").Activate
    ActiveSheet.Copy After:=Sheets(Sheets.Count)

   x = Range("H5")                                    'repérer le n° du mois à sauvegarder

   ActiveSheet.Name = UCase(Format(x, "mmmm"))     'ex:JANVIER

   ActiveSheet.Shapes("CommandButton1").Select
   Selection.Delete                                     'Effacer le bouton de commande

    mois = ActiveSheet.Name

   Sheets("Modèle").Select                              'on revient au modèle après sauvegarde'

    MsgBox ("Le mois de " & mois & "" & " est sauvegardé")
End Sub    

Bonsoir H2so4,

Merci pour la correction, ça fonctionne nickel !

Bonne soirée,

Cordialement,

Xorsankukai