Option Explicit
Sub Toto()
'1 = affichage, 2 = Masquage
On_Decide (1)
End Sub
Sub On_Decide(Num As Integer)
ThisWorkbook.Protect Structure:=False, Windows:=False
Sheets("Administrateur").Visible = Num
ThisWorkbook.Protect Structure:=True, Windows:=False
End Sub