Option Private Module
Sub AfficherFeuilles()
ActiveWorkbook.Unprotect Password:="toto"
For i = 3 To Sheets.Count
Sheets(i).Visible = xlSheetVisible
Sheets(i).Unprotect ("toto")
Next i
End Sub
Sub MasquerFeuilles()
ActiveWorkbook.Unprotect Password:="toto"
For i = 3 To Sheets.Count
Sheets(i).Protect Password:="toto"
Sheets(i).Visible = xlSheetVeryHidden
Next i
ActiveWorkbook.Protect Password:="toto"
End Sub