Sub Couleur_date4()
Dim i As Long
For i = 2 To Range("A65536").End(xlUp).Row
Cells(i, 1).Interior.ColorIndex = Switch(Cells(i, 1).Value [COLOR=darkred]< Date[/COLOR], xlNone, Cells(i, 1).Value [COLOR=navy]= Date[/COLOR], 5, Cells(i, 1).Value [COLOR=darkgreen]< Date[/COLOR], 11)
Next i
End Sub