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