Bonjour Tispirit86,
Un début de solution :
Sub Macro1()
For i = 3 To 8
If Cells(i, 1) = 1501319 And Cells(i, 2) = Date Then
Range(Cells(i, 1), Cells(i, 2)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next i
End Sub
Fait avant de voir ta capture d'écran, donc si n° dossier = 1501319 et date = à Aujourd'hui (28/04/2015), coloration en jaune (Visuel du code)
Du coup tu te bases sur quoi pour ta coloration ? (inférieur à une certaine date ?)