Compter entre deux dates

Bonjour chers tous

je voudrais vérifier et compter les enregistrements sur un intervalle de dates données.

Jai rédigé un code mais qui fonctionne pas.

Merci de me corriger.

Sub VERI()
    Dim plage As Range, n1 As Variant
    With Sheets("Base")
    Set plage = .Range("B2:B" & .Range("A" & Rows.Count).End(xlUp).Row)
    n1 = Application.WorksheetFunction.CountIfs(plage, ">=" & .[F2], plage, "<=" & .[F3])
    If n1 = 0 Then MsgBox "RIEN": Exit Sub Else .[F4] = n1
    Set plage = Nothing
    End With
End Sub

Bonjour à tous,

Avec une formule :

Merci mais il se trouve que j'ai pas été bien compris.

Entre les deux dates je veux compter le nombre d'enregistrements effectués.

Bonjour,
Une proposition.
Cdlt.

Public Sub VERI()
Dim rng As Range
Dim lastRow As Long
Dim dt As Double, dt2 As Double, n As Double
    With ActiveSheet
        dt = .Cells(2, 6).Value2: dt2 = .Cells(3, 6).Value2
        lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
        Set rng = .Cells(2, 2).Resize(lastRow - 1)
        n = WorksheetFunction.CountIfs(rng, ">=" & dt, rng, "<=" & dt2)
        If n > 0 Then
            .Cells(4, 6).Value = n
        Else
            .Cells(4, 6).Value = vbNullString
            MsgBox "Rien"
        End If
    End With
End Sub

PARFAIT !!!! MERCI.