Private Sub ToggleButton1_Click()
Dim c As Range
Application.ScreenUpdating = False
With ToggleButton1
For Each c In Range("B1:B" & Range("B65536").End(3).Row)
c.Rows.Hidden = IIf(.Value = False, (c.Offset(, 1) = "ok") + (.Value = True), False)
Next c
.Caption = IIf(.Value = False, "affiche", "masque")
End With
Application.ScreenUpdating = True
End Sub