Microsoft 365 Ajouter bouton personne pour afficher feuilles

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = xlSheetVisible
Next
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = Environ("USERNAME") Or ws.Name = "Menu" Then
ws.Visible = xlSheetVisible
Else
ws.Visible = xlSheetHidden
End If
Next
End Sub

Sub afficherFeuille()
    Const TITRE As String = "Afficher ma feuille de travail"
    Dim ws As Worksheet
    Dim afficher As String
    Dim index As Variant
    
    afficher = InputBox("Entrez votre mot de passe", "Accès réservé")
    If afficher <> "" Then
        '
        ' Application.Match = formule de feuille EQUiV
        index = Application.Match(CInt(afficher), Sheets("LISTES").Range("I3:I5"), 0)
        If Not IsError(index) Then
            '
            ' obtenir la feuille correspondant
            Set ws = getWorkSheetByName(Sheets("LISTES").Range("H3:H5")(index))
            If Not ws Is Nothing Then
                ActiveWorkbook.Unprotect
                '
                ' Rendre visible la feuille
                ws.Visible = True
                '
                ' Retenir le nom de l'utilisateur/Feuille en cours en B1 de LISTES
                Sheets("LISTES").Range("B1") = ws.Name
                '
                'Décommenter la ligne suivante pour activer la feuille
                ' ws.Activate
                ActiveWorkbook.Protect
            Else
                MsgBox "Votre feuille est introuvable!", vbExclamation, TITRE
            End If
        Else
            MsgBox "Mot de passe incorrect!", vbExclamation, TITRE
        End If
    Else
        MsgBox "Opération interrompue par l'utilisateur!", vbExclamation, TITRE
    End If
End Sub