Bonjour,
dans une feuille j' ai, d'une part ceci:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("d8:i14,d20:i26,d34:i40,n8:s14,n20:s26,n34:s40,x8:ac14,x20:ac26,x34:ac40")) Is Nothing Then Exit Sub
Select Case...