Countif en VBA

Bonjour,

J'ai un problème avec la fonction countif en VBA. Voici le code

Private Sub CommandButton3_Click()
Dim mydate
mydate = Date
mydate = Application.CountIf([$A$9:$A$15000], Date)
If mydate < 2 Then
MsgBox "You have " & mydate & _
" account due today."

Else
MsgBox "You have " & mydate & _
" accounts due today."
End If

End Sub

Cela me donne le nombre de comptes dus pour aujourd'hui Mais si
je veux savoir ceux qui sont dûs avant cette date, ça ne marche
pas.voici où est le problème

Private Sub CommandButton3_Click()
'Call couleurs
Dim mydate
mydate = Date
mydate = Application.CountIf([$A$9:$A$15000], "<Date") <-ça
devrait fonctionner non ?
If mydate < 2 Then
MsgBox "You have " & mydate & _
" account due today."

Else
MsgBox "You have " & mydate & _
" accounts due today."
End If

End Sub

Quelqu'un peut m'expliquer mon erreur ?

Merci

Denys