suppression d'un menu personnalisé

Bonjour
Je n'arrive pas à supprimer les menus personnalisé
Voici mon code :

Public Garantie, NouvAnnée As CommandBarPopup

Private Sub Workbook_Activate()
With Application.CommandBars(1)
Set Garantie = .Controls.Add _
(Type:=msoControlPopup, before:=.Controls.Count - 1)
End With
Garantie.Caption = "Garantie"

With Application.CommandBars(1)
Set NouvAnnée = .Controls.Add _
(Type:=msoControlPopup, before:=.Controls.Count - 1)
End With
NouvAnnée.Caption = "Nouvelle Année"



'Creation des sous-menus
With Garantie.Controls.Add(msoControlButton)
.Caption = "Feuille Garantie"
.OnAction = "Garantie"
End With

With Garantie.Controls.Add(msoControlButton)
.Caption = "Garantie Lacmée"
.OnAction = "BdSaisie"
End With

With NouvAnnée.Controls.Add(msoControlButton)
.Caption = "Création nouvelle année"
.OnAction = "NouvelleAnnée"
End With

End Sub

Private Sub Workbook_Deactivate()
Application.CommandBars(1).Controls("Garantie").Delete
Application.CommandBars(1).Controls("NouvAnnée").Delete
End Sub

L'osque je ferme le classeur,seul le menu "Garantie" est supprimé, le menu "NouvAnnée" me renvoie le message (erreur d'exécution 5)
Si quelqu’un peut me trouver le problème, je lui en serais très reconnaissant
D'avance merci