Sub MasquerColE()
Application.ScreenUpdating = False 'pour éviter l'effet sapin de Noel
With ActiveWorkbook 'dans le classeur actif
For Each ws In .Sheets 'pour chaque feuille
ws.Unprotect Password:="1" 'on déprotege
ws.Columns("E:E").EntireColumn.Hidden = Not (ws.Columns("E:E").EntireColumn.Hidden) 'on bascule la colonne E entre masquée visible
ws.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True 'on reprotège la feuille
Next ws
End With
With Sheets("Inscriptions") 'dans la feuille inscriptions
.Unprotect Password:="1" 'on déprotège
.Range("J5") = IIf((.Range("J5") = "ColE Masquées"), "ColE Visibles", "ColE Masquées") 'on indique l'état des colonnes
.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True 'on reprotège
End With
End Sub
Application.ScreenUpdating = True