Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([cel], Target) Is Nothing Then
Heure = [nom].Find(Target, LookAt:=xlWhole).Offset(0, 1).Value
Max = [nom].Find(Target, LookAt:=xlWhole).Offset(0, 2).Value
If Heure >= Max Then
Target.Font.ColorIndex = 3 'couleur à adapter
Else
Target.Font.ColorIndex = 1 'couleur à adapter
End If
End If
End Sub