masquer ligne si date atteinte

Sub Bouton1_QuandClic()
'pour masquer les lignes
Dim c As Range

For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
&nbsp; &nbsp; 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

Cliquez pour agrandir...