Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Cel As Range
If Not Application.Intersect(Target, Range("D10:D1000")) Is Nothing Then
Cancel = True
For Each Cel In Target
If Range("N" & Cel.Row) = "OUI" Then
With Cel.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("N" & Cel.Row).ClearContents
End If
Next Cel
End If
End Sub