Option Explicit
'Ici sur l'évènement Clique droit !!
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C1:C30, E1:E30")) Is Nothing Then
Cancel = True
MsgBox "Parfait pour le click droit de 'C1:C30, E1:E30'"
ActiveCell.Interior.Color = 65535
End If
End Sub