Bonsoir à tous, j'ai un sérieux problème avec ce code, j'espère que vous allez m'aider.
Ce code doit à l'ouverture d'Excel cacher une série de feuilles, au départ le code fonctionnait très bien mais depuis la semaine dernière je reçoit un message
IMPOSSIBLE DE DEFINIR LA PROPRIETE VISIBLE DE LA CLASSE WORKSHEET
comment corriger s'il vous plait?
Je vous remercie déjà pour votre aide

Voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Workbook_Open()
Sheets("Login").Visible = False
Sheets("PAGE DE DEMARRAGE").Visible = True
Sheets("PAGE DE DEMARRAGE").Select
Sheets("ACCEUILADMINSYSTEM").Visible = False
Sheets("TauxPrets28jours5vers").Visible = False
Sheets("TauxPrets35jours5vers").Visible = False
Sheets("TauxPrets14jours10vers").Visible = False
Sheets("Acceuil").Visible = False
Sheets("Prêt (28 jours) 60.0000").Visible = False
Sheets("Prêt (28 jours) 70.5600").Visible = False
Sheets("Prêt (35 jours) 60.0000").Visible = False
Sheets("Prêt (35 jours) 70.5600").Visible = False
Sheets("Prêt (14 jours) 60.0000").Visible = False
Sheets("Prêt (14 jours) 70.5600").Visible = False
Sheets("Feuil1").Visible = False
End Sub