MODIFIER LE MENU CONTEXTUEL DE LA SOURIS (CODE VBA EXCEL)

Sub Creer_Menu_Contextuel()


'Efface tout les boutons de la sourie
For z = 1 To CommandBars("Cell").Controls.Count
With CommandBars("Cell")
    .Controls(z).Visible = False
    'sinon avec l'index des boutons sur la souris remplacer par 'z'
    End With
Next

'Crée le 1 er bouton
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
      .Caption = "Mon Menu 1"
      .BeginGroup = True
      .OnAction = "le nom de ta fonction"
End With


'Crée le 2 e bouton
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
     .Caption = "Mon Menu 2"
      .BeginGroup = True
      .OnAction = "le nom de ta fonction"
End With

'Crée le 3e bouton
With Application.CommandBars("Cell").Controls.Add(msoControlPopup)
      .Caption = "Mon Menu 3"
      .BeginGroup = True
      'Crée le 3.1 bouton
      With .Controls.Add(msoControlButton)
        .Caption = "Sous Menu 3.1"
        .OnAction = "Nom de ta fonction"
      End With
      'Crée le 3.2 bouton
      With .Controls.Add(msoControlButton)
        .Caption = "Sous Menu 3.2"
        .OnAction = "Nom de ta fonction"
      End With
      'Crée le 3.3 bouton
      With .Controls.Add(msoControlPopup)
        .Caption = "Sous Menu 3.3"
            'Crée le 3.3.1 bouton
             With .Controls.Add(msoControlButton)
                .Caption = "Sous Menu 3.3.1"
                .OnAction = "Nom de ta fonction"
            End With
        
      End With
End With



End Sub
Sub Supp_Menu_Contextuel()
'réinitialize la sourie
Application.CommandBars("Cell").Reset
End Sub