bonjour,
Pour résumer hein...
On dispose d'une .xlam qui installe un onglet supplémentaire dans le ruban.
Pour cela il est fait usage du Custom UI Editor.
Cet onglet ne comporte qu'un bouton dont la fonction de callback est de lancer une macro :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   Test
End Sub
Sub objRuban(ribbon As IRibbonUI)
   Set MonRuban = ribbon
End Sub
'Callback for button01 onAction
Sub Action(control As IRibbonControl)
Test
End Sub
Sub Test()
MsgBox "Ok"
End Sub
La xlam fonctionne correctement.

Je voudrais maintenant ajouter une fonctionnalité qui permettrait d'éviter le cas échéant d'utiliser la fonction de Callback et d'appeler la fonction "Test" directement depuis le classeur de travail, à partir d'une Private Sub Worksheet_BeforeRightClick par exemple.
Apparemment c'est impossible (avec run ou call)
Application.run ne "voit" pas la Sub Test()
Avec vous une idée ?
A+