Prendre en compte un intervalle de dates

Bonjour à tous,

Mon programme ci-dessous fonction bien sans periode (dates), je souhaiterai maintenant ajouter la prise en compte d'un intervalle de dates a mon resultat, j'ai deja modifier le userform pour...

Merci de consulter le fichier en attache pour plus d'informations:

Je souhaiterai egalement que le format date du systeme soit pris en compte selon, moi je suis en jj/mm/aaaa

Private Sub CB_Intervenant_Change()

Dim Recherche, total As String

Dim Nb_Intereventions, T_Interventions As Integer

Dim Date_Debut, Date_Fin As Date

'Date_Debut = CDate(Me.TB_Date_Debut.Value)

'Date_Fin = CDate(Me.TB_Date_Fin.Value)

Recherche = Me.CB_Intervenant.Value

Nb_Intereventions = Application.WorksheetFunction.CountIf(Sheets("Interventions").Range("C:C"), "*" & Recherche & "*")

T_Interventions = Application.WorksheetFunction.CountA(Sheets("Interventions").Range("A3:A" & Sheets("Interventions").Range("A65536").End(xlUp).Row))

Me.TB_T_Interventions = T_Interventions

Me.TB_Nb_Interventions = Nb_Intereventions

total = Format(((Nb_Intereventions * 100) / T_Interventions), "#0.00")

Me.TB_P_Interventions = total & " %"

If total <= 49.9999999 Then

Me.TB_P_Interventions.BackColor = vbRed 'vbBlack, vbBlue, vbCyan, vbGreen, vbMagenta, vbRed, vbWhite, vbYellow

Me.L_Appreciation = "Collaborateur nul"

Me.L_Appreciation.ForeColor = vbRed

Me.L_Appreciation.Visible = True

Else

Me.TB_P_Interventions.BackColor = vbGreen

Me.L_Appreciation = "Collaborateur exemplaire"

Me.L_Appreciation.ForeColor = vbRed

Me.L_Appreciation.Visible = True

End If

End Sub

Je vous remercie pour votre aide