Je cherche à compter des dates excel

Bonjour,
je cherche à comparer 2 dates la premiere issue d'une boite de dialogue
et la seconde sur une cellule
le filtre fonctionne , mais pas le total

voici ma macro, mais mon total est toujours egal a 0
merci

Sub daterecu()

Dim Message, Titre, ddr, default, réponse

Titre = "Date de réception"
Message = "Entrez la date du début au format jj/mm/aaaa :"

ddr = InputBox(Message, Titre, default)

ddf = ddr

ddr = Format(ddr, "mm/dd/yyyy")
ddf = Format(ddf, "mm/dd/yyyy")

Selection.AutoFilter Field:=4, Criteria1:=">=" & ddr, Criteria2:="<=" & ddf, Operator:=xlAnd

Range("A7:J500").Select

Dim c As Range
total = 0

'compte tous les dossiers
Range("b7:b5000").Select

For Each c In Selection

If c = ddr Then 'ligne qui ne fonctionne pas

total = total + c.Count
End If
Next

Range("g2") = "TOTAL : " & total

End Sub