Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim P As Range
Set P = Range("A1:FK550") 'P lage à voir
If Not Intersect(P, Target) Is Nothing Then
Me.Unprotect
P.FormatConditions.Delete
If Target.Count = 1 Then
Intersect(Target, P).FormatConditions.Add 2, , "VRAI"
Intersect(Target, P).FormatConditions(1).Interior.ColorIndex = 8
Target.FormatConditions(1).Font.Bold = 1
End If
Me.Protect
End If
End Sub