countifs entre 2 dates avec vba

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

Cliquez pour agrandir...