Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
For i = LigHaut To LigBas
With Application.CommandBars("cell").Controls _
.Delete(Type:=msoControlButton, before:=1, temporary:=True)
.Tag = 1
.Caption = "Essai"
.OnAction = Essai
End With
Next i
End Sub