countifs entre 2 dates avec vba

[smotty]

Bonjour,

Je fais appel à vous pour savoir si on peut utiliser COUNTIFS pour compter des éléments entre 2 dates en vba.

voici ma formule mais ça ne fonctionne pas.

With Feuil4
l = .[A65535].End(xlUp).Row

If l > 1 Then
Set Champs1 = .Range("D2" & l)
Set Champs2 = .Range("E2:E" & l)
nb = WorksheetFunction.CountIfs(Champs1, "Contact tel", Champs2, "<=" & D2, Champs2, ">=" & LundiEncours)

Me.TxtTel.Value = nb
End If
End With

Merci d'avance pour vos réponse

smotty