Création page accès

Option Explicit
'https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
    'Renvoie le nom de chaque feuille
    Ws.Visible = True
   Next Ws
End Sub
Private Sub Workbook_Open()
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
    'Renvoie le nom de chaque feuille
    If Ws.Name <> "ACCES" Then
    Ws.Visible = xlSheetVeryHidden
    Else
    Ws.Visible = True
    End If
Next Ws
Feuil1.ComboBox1.Text = "Nom du SITE >> "
End Sub

Option Explicit
Private Sub ComboBox1_Click()
Sheets("ACCUEIL").Visible = True
Sheets("ACCES").Visible = False
End Sub