Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim CB As CommandBar
Dim CT As CommandBarControl
'--- Met tous les contrôles invisibles ---
Set CB = Application.CommandBars("Cell")
For Each CT In CB.Controls
CT.Visible = False
Next CT
'--- Les boutons personnalisés ---
With Application.CommandBars("Cell")
'/// Mettre les boutons qui vont bien ///
Set CT = .Controls.Add(Type:=msoControlButton, ID:=23, temporary:=True)
Set CT = .Controls.Add(Type:=msoControlButton, ID:=4, temporary:=True)
'////////////////////////////////////////
.ShowPopup
End With
'---
Cancel = True
End Sub
Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub