Non, mais je plaisante...
Je répondais juste à votre question....
Voici un (des) code(s) :
Private Sub Workbook_Open()
Dim Cpt As Integer
Sheets(1).Activate
For Cpt = 2 To ThisWorkbook.Worksheets.Count
Sheets(Cpt).Visible = xlVeryHidden
Next Cpt
End Sub
Je ne suis pas sur que le Sheets(1).activate soit obligatoire.
Situation du fichier : c'est la feuille dont l'onglet est le plus à gauche qui reste visible (1) et ce sont les feuilles à sa droite qui sont masquées, donc de la feuille 2 à la feuille F qui est égale au nombre de feuilles contenues dans le classeur...
@ bientôt
LouReeD