Private Sub Worksheet_Change(ByVal Target As Range)
Dim plageDate As Range, plageInfos As Date, celD As Range, celI As Range
Application.EnableEvents = False
Set plageDate = Range("c10:h10")
Set plageInfo = Range("c11:h11")
For Each celD In plageDate
If celD.Value = Date Then celD.Interior.Color = vbRed
For Each celI In plageInfos
If celI <> "" And celD.Interior.Color = vbRed Then celD.Interior.Color = xlNone
Next celI
Next celD
Application.EnableEvents = True
End Sub