XL 2016 Couleur de cellule

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