Compter des cellule en format date excel

Bonjour,
Bonjour,

j ai une colonne avec des dates , je souhaite compter les cellules qui contiennent la date que je rentre grace à une boite de message.

quand je mets un prénom dans la boite de message et que mes cellules contiennent ce prénom je n'est aucun problème, mais quand je rentre une date le comptage est de 0

pouvez vous me dépanner

voici ma macro



Sub daterecu()

Sheets("Feuil1").Select

Dim Message, Titre, ddr, réponse

Titre = "Date de réception"

Message = "Entrez la date du début au format jj/mm/aaaa :"

ddr = InputBox(Message, Titre)

If ddr <> Format(ddr, "dd/mm/yyyy") Or ddr = "" Then
MsgBox "Votre date n'est pas valide! Recommencez ?"
Exit Sub
End If


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


Dim celule As Range
total = 0


Range("a7:a5000").Select 'colonne ou j'ai mes dates

For Each celule In Selection
If cellule = ddr Then
total = total + celule.Count
End If
Next

Range("g2") = "NOMBRE DE JOURS : " & total 'affiche le total

End sub