Comment accéder à une macro en faisant un clic droit dans une cellule ?

Cette solution crée un menu contextuel dans le clic droit qui permet de convertir à la volée les valeurs de l'euro vers le franc et réciproquement.

sub euroclicdroit()
 Dim NouvelOp As CommandBarControl, option1 As CommandBarControl,
 option2 As
 CommandBarControl
 Set NouvelOp =
 CommandBars("Cell").Controls.Add(msoControlPopup, , , , True)
   With
 NouvelOp
     .Caption = "Conversion"
    Set option1 =
 NouvelOp.Controls.Add(msoControlButton, , , , True)
       With option1
 
       .Caption = "Francs/Euros"
         .OnAction = "FrEur"
 
     End With
     Set option2 = NouvelOp.Controls.Add(msoControlButton, , , , True)
       With option2
         .Caption =
 "Euros/Francs"
         .OnAction = "EurFr"
       End With
 
 .Visible = True
   End With
 
 end sub

sub FrEur()
 ActiveCell.Formula =
 Application.WorksheetFunction.Round(ActiveCell.Value / 6.55957, 2)
 end sub

sub EurFr()
 ActiveCell.Formula =
 Application.WorksheetFunction.Round(ActiveCell.Value * 6.55957, 2)
 end sub