Tu peut remarquer à la fin du CommandButton1_Click ces lignes qui appellent "test" qui se situe dans le module1 :
If TextBox1.Value <> "" Then
Call test(TextBox1.Value)
End If
dans ce "test" (tu peut renommer tout ça comme bon te semble tant qu'il y a correspondance partout ^^) :
While i <= nbcells
If Sheets(1).Cells(i, 1).Value < DateUser Then
Sheets(1).Cells(i, 1).EntireRow.Hidden = True
End If
i = i + 1
Wend
c'est ici que les lignes sont masquées, mais le test est vrai pour les lignes à masquer, d'où l'absence du supérieur ou égal et la présence du inférieur.
edit: dés que je manipule des dates je ne suis sur de rien, si quelqu'un de puissant pourrait valider, je serais rassuré ^^