Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim x$
Cancel = True
x = MsgBox(String(10, " ") & "Oui pour les motifs, Non pour la police", 3, "Format de cellule")
If x = 2 Then Exit Sub
Application.Dialogs(IIf(x = 6, xlDialogPatterns, xlDialogFontProperties)).Show
End Sub