Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False
'ici les feuilles Feuil2 et Feuil3 sont concernées par le masquage/démasquage
Feuil2.Visible = Not ToggleButton1: Feuil3.Visible = Not ToggleButton1
ToggleButton1.Caption = IIf(ToggleButton1, "Démasquer", "Masquer")
End Sub