Erreur syntaxe macro MFC

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

.FormatConditions.Add Type:=xlExpression, _
                 Formula1:="=ET(" & rdate.Address & "<AUJOURDUI();" & rdate.Address & "<>"")"

Formula1:="ET(" & rdate.Address & "<AUJOURDHUI();" & rdate.Address & "<>"[COLOR="Red"]""[/COLOR]")"