XL 2010 Recherche entre 2 dates

[Myst]

Bonjour
je ne parviens pas a finaliser mon projet
Dans le fichier joint il y a un Userform "Module de recherche" ou je saisie une date de début et une date de fin dans les textbox 2 et 3 et je voudrais en cliquant sur le "CommandButton2" afficher dans la feuille "RECHERCHE" toutes les lignes ayant la cellule en colonne B de la feuille "Base de donnée" comprise entre les deux dates
J'ai le code ci-dessous que m'avais fait l'ami PARITEC a l'époque et que je n'arrive pas a adapter
si quelqu'un peu m'aider, merci

Private Sub CommandButton2_Click()
    Dim i&, x As Date, y As Date, fin&
    If IsDate(TextBox2) And IsDate(TextBox3) Then
        Application.ScreenUpdating = 0
        x = CDate(TextBox2): y = CDate(TextBox3)
        With Sheets("Base de donnee")
            .Unprotect
            If .FilterMode Then .ShowAllData
            fin = .Cells(.Rows.Count, 1).End(xlUp).Row
            .Rows.Hidden = 0
            For i = fin To 2 Step -1
                If .Cells(i, 1) >= x And .Cells(i, 1) <= y Then .Rows(i).Hidden = 0 Else .Rows(i).Hidden = 1
            Next i
        End With
    Else
        With Sheets("Base de donnee")
            .Unprotect
            .Rows.Hidden = 0
        End With
    End If
    Application.ScreenUpdating = 1

 

[youky(BJ)]

Bonjour,
Les dates sont en colonne B donc mettre 2 au lieu de 1
For i = fin To 2 Step -1
If .Cells(i, 2) >= x And .Cells(i, 2) <= y Then .Rows(i).Hidden = 0 Else .Rows(i).Hidden = 1
Next i

Bruno