Menu contextuel perso double exécution

Bonjour,

J'ai besoin d'intégrer au menu contextuel d'excel (sur l'objet cellule) un bouton personnalisé.
J'arrive bien à avoir le bouton dans le menu, à exécuter la procédure attachée mais le problème est que cette même procédure s'exécute 2 fois.

Voici le code test que j'utilise:

Private Sub Workbook_Open()

Dim Bo As CommandBarButton
Application.CommandBars("Cell").Reset
Set Bo = Application.CommandBars("Cell").Controls.Add(msoControlButton, , , 1, Temporary:=True)

Bo.Caption = "Essai"
BnAction = "Essai()"

End Sub

Public Sub Essai()

Range("A1").Value = Range("A1").Value + 1

End Sub

Normalement après validation du bouton personnalisé dans le menu contextuel, je devrais avoir la valeur 1 dans la cellule A1 mais ma valeur est égale à 2, ou encore si je remplace ce calcul par l'affichage d'une MsgBox("Ceci est un test"), cette dernière s'affiche 2 fois.

Pourquoi cette double exécution?

Merci d'avance