Option Explicit
Sub atteindre()
Dim plage As Range, cel As Range, c As Range, dt As Date
Application.ScreenUpdating = False
With Feuil1
Set plage = .Range("b2:b" & Range("b" & Rows.Count).End(xlUp).Row)
For Each cel In plage
If cel = Date Then
cel.Activate
cel.Interior.Color = vbRed
cel.Font.Color = vbWhite
cel.Offset(1, 0).Interior.Color = xlNone
cel.Offset(1, 0).Font.Color = vbBlack
End If
dt = DateDiff("d", Date, .Range("e2").Value)
If dt > 1 And cel.Value = Date Then
cel.Offset(1, 0).Activate
cel.Offset(0, 0).Interior.Color = xlNone
cel.Offset(0, 0).Font.Color = vbBlack
cel.Offset(1, 0).Interior.Color = vbRed
cel.Offset(1, 0).Font.Color = vbWhite
End If
Next cel
End With
End Sub