XL 2010 code clic droit - enlever et remettre

[cajuba]

Bonjour,
sur une feuille, j'ai le code suivant : pour interdire le clic droit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Je souhaiterais retrouver la fonction du clic droit en cliquant sur un bouton
Merci pour votre aide

 

[pierrejean]

Bonjour cajuba
Un essai

 

[cajuba]

Merci pierrejean
PARFAIT