Bonsoir,
et avec une MFC :
Sub DateAlerte()
Range("D16").Select 'D16 est un exemple
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=AUJOURDHUI()"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub