Macro CreateTransMenu en double

Bonjour,


Je viens de lancer cette macro :

Sub CreateTransMenu()
Dim TransMenu As CommandBarPopup

On Error Resume Next
With Application.CommandBars(1)
Set TransMenu = .Controls.Add _
(Type:=msoControlPopup, before:=.Controls.Count)
End With

TransMenu.Caption = "Françoise"

Elle est bien fonctionnée mais je ne m'en suis appercu trop tard... j'ai relancé la macro et maintenant j'ai deux menu identique...

Je voudrais donc bien en supprimer un...

Savez vous comment procéder?

Merci d'avance