Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, [C6:H13]) Is Nothing Then
For Each c In Target
If c = "non" Then
c.Font.ColorIndex = 3
Else
If IsEmpty(c) Then
c = "oui"
c.Font.ColorIndex = 4
End If
End If
Next
End If
End Sub