Sub FormatConditionDateDepasse()
Dim cpt As Long, rs As Range, rdate As Range
With Sheets("general")
.Unprotect Password:="0000"
For cpt = .Range("A65536").End(xlUp).Row To 3 Step -1
Set rs = .Range("F" & cpt & ":G" & cpt)
Set rdate = .Range("F" & cpt)
If .Range("G" & cpt) = "" Then
With rdate
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:=ET(" & rdate.Address & "<AUJOURDHUI();" & rdate.Address & "<>"")"
With rdate.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 2
End With
rdate.FormatConditions(1).Interior.ColorIndex = 44
End With
End If
Next cpt
End With
End Sub