Calcul entre deux dates

Dans mon exemple est ce qu'il serai possible de calculer le nombre de dates qui s'affichent dans un msg box avec vba seulement( voir pièce jointe)

Bonsoir,

peut-être ainsi :

Sub nb_dates()
Dim Cel As Range
Dim I As Long
With Sheets("facture")
    For Each Cel In .Range("A5", .[A65000].End(xlUp))
        If IsDate(Cel) Then I = I + 1
    Next Cel
End With
MsgBox "Il y a " & I & " dates dans la colonne A"
End Sub

Bonne soirée

Non,en fait ce que je cherche c'est trouver le nombre de dates sans utiliser les cellules d'excel,mais merci pour ta réponse potos