Bonjour à tous,

j'ai un problème j'ai suivi un tuto pour realiser une bouton dans le menu contextuel excel mais rien n'apparait.

voici le 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
16
17
18
19
20
Sub AddToCellMenu()
    Dim ContextMenu As CommandBar
    Dim MySubMenu As CommandBarControl
 
    Call DeleteFromCellMenu
 
    Set ContextMenu = Application.CommandBars("Cell")
    ContextMenu.Controls(4).BeginGroup = True
 
 
    ' Add one custom button to the Cell context menu.
    With ContextMenu.Controls.Add(Type:=msoControlButton, before:=2)
        .OnAction = "BoutonAllerA"
        .FaceId = 59
        .Caption = "aller au detail"
        .Tag = "My_Cell_Control_Tag"
    End With
 
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Private Sub Workbook_Activate()
'
AddToCellMenu
 
End Sub
Merci de m'aider à trouver ou je merdouille ? Se peut il que le contextmenu soit verouillé dans une quelconque option?