Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Plage1 As Range
If ThisWorkbook.Windows(1).SelectedSheets.Count > 1 Then
MsgBox "Plusieurs feuilles sont sélectionnées, action bloquée"
Exit Sub
End If
Set Plage1 = Sh.Range("A1:A20,C1:C20")
If Not Application.Intersect(Target, Plage1) Is Nothing Then
Cancel = True 'évite le menu contextuel lié au lic du boouton droit
MsgBox "ok"
End If
End Sub