Afficher/masque feuille via userform

Private Sub CommandButton1_Click()
    ' Afficher ou masquer des feuilles
    Call MasquerAfficherWS(CommandButton1.Caption)
End Sub

Sub MasquerAfficherWS(nomWS As String)
    ' Afficher ou masquer des feuilles
    Dim nbWS As Integer
    
    ' Boucle de la 1re à la dernière du classeur
    For nbWS = 1 To ThisWorkbook.Worksheets.Count
        ' Si le nom de la feuille est différente du nom du bouton,
        ' masquer la feuille sinon rendre visible la feuille
        If Worksheets(nbWS).Name <> nomWS Then
            Worksheets(nbWS).Visible = False
        Else
            Worksheets(nbWS).Visible = True
        End If
    Next nbWS
End Sub