Private Sub ToggleButton1_Click()
Dim mdp, Sh As Worksheet
Application.ScreenUpdating = 0
mdp = InputBox("Saisir mot de passe")
Rows("1:60").Hidden = ToggleButton1
Columns("Q:BB").Hidden = ToggleButton1
If mdp = "123" Then
For Each Sh In Worksheets
If Sh.Name <> "SUIVI" Then Sh.Visible = -ToggleButton1 - 1
Next
ToggleButton1.Caption = IIf(ToggleButton1, "Afficher", "Masquer")
End If
End Sub