Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Booléen)
If Intersection(Range("A01:IG1500"), Target) Is Nothing Then Exit Sub
Cancel = True
If Target.Value <> Mavaleur Then
Userform1.Show
ElseIf Target.Interior.ColorIndex <> MaCouleur Then
Userform2.Show
ElseIf AutreCondition Then
UserFormAutre.Show
End If
Exit Sub
End Sub