Bonjour,
Avec une formule :
En C1 par exemple :
=SI(B1<=AUJOURDHUI();"ALERTE";"")
Avec un code visual basic :
Sub ALERTE()
Dim DL As Long
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row
For i = 1 To DL
If CDate(Range("B" & i).Value) <= Date Then
Sheets("C" & i).Value = "ALERTE"
End If
Next i
End Sub
Cordialement.