Sub Afficher_tout()
Dim f
Application.ScreenUpdating = False
For Each f In Array("Résultats", "Plan d'actions", "Plan d'actions2", "Plan d'actions3", _
"Plan d'actions bis", "Plan d'actions bis2", "Plan d'actions bis3")
Sheets(f).Visible = xlSheetVisible
Next
End Sub
Sub Masquer_tout()
Dim f
Application.ScreenUpdating = False
For Each f In Array("Résultats", "Plan d'actions", "Plan d'actions2", "Plan d'actions3", _
"Plan d'actions bis", "Plan d'actions bis2", "Plan d'actions bis3")
Sheets(f).Visible = xlSheetHidden
Next
End Sub