Sub Bouton1_QuandClic()
'pour masquer les lignes
Dim c As Range
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
Rows(c.Row).Hidden = IIf(c < Date, True, False)
Next c
End Sub
'------------------------------------------------------
Sub Bouton2_QuandClic()
'pour afficher les lignes
Rows.Hidden = False
End Sub