Sub Bouton8_QuandClic()
'pour masquer
Dim c As Range
For Each c In Range('b4:b' & Range('b65536').End(xlUp).Row)
Rows(c.Row).Hidden = IIf(c = 0, True, False)
Next c
End Sub
'_____________________________________________
Sub Bouton9_QuandClic()
'pour afficher
Rows.Hidden = False
End Sub