Problème avec la fonction «.OnAction ».

SITUATION : Sur un worksheet de mon classeur (ThisWorkbook ou un autre), j’utilise cette macro qui me permet quand on click droit sur une cellule précise de rajouter un bouton de sélection. Normalement, quand on clique sur ce nouveau bouton on devrait appeler la macro « test ». La macro « test » est dans le même onglet (classeur).
PROBLEME : Cependant la macro "test" est appelée directement au click droit sur la cellule et non pas à l’appui du bouton avec : .OnAction = Worksheets ("OngletTest").test
Sinon j’ai ce message d’erreur « Impossible de trouver la macro Nomdufichier.xls !test’ » avec : .OnAction = “test’ la macro

CODE :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub UpdateVersionPopupControls(MyCurrentVersion As String)
'-----------------------------------------------------------------------------------------
'Description: Créer le bouton de version et l’ajoute au menu contextuel
'-----------------------------------------------------------------------------------------
    ' Supprime le menu si déjà existant
    Call DeleteVersionItemsInPopup
 
    'Rajout du menu déroulant dans la cellule avec la version 1
        With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=True)
            .Caption = "Version 1" 
           .OnAction = Worksheets("MyWorksheet").test
           ‘ .OnAction = “test’
            .Tag = "brccm"
        End With
End Sub