Afficher onglets par numéros de feuille

Bonjour tout le monde,

Je cherche à n'afficher que certains onglets d'un classeur.
Le problème, c'est que ces onglets sont renommés en fonction de cellule...
Mais je crois me souvenir qu'il est possible de nommer les feuilles en fonction de leur numéro...
Ainsi, mon code est, pour le moment :

Option Explicit
'--------
Sub Afficher_ateliers()
Dim Onglet(), Cptr As Byte, Idx As Byte

Onglet = Array("Accueil", "Accueil!B7", "Accueil!B8", "Accueil!B9", "Accueil!B10")
 For Cptr = 1 To ThisWorkbook.Sheets.Count
     On Error Resume Next
          If Application.Match(Sheets(Cptr).Name, Onglet, 0) > 0 Then
               If Err.Number > 0 Then
                    Sheets(Cptr).Visible = False
               Else
                    Sheets(Cptr).Visible = True
               End If
          End If
     On Error GoTo 0
Next
End Sub

Sauf que cela ne fonctionne pas, logique je pense.
Par contre, je me disais qu'avec un code comme ça :

Option Explicit
'--------
Sub Afficher_ateliers()
Dim Onglet(), Cptr As Byte, Idx As Byte

Onglet = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5", "Feuil6")
 For Cptr = 1 To ThisWorkbook.Sheets.Count
     On Error Resume Next
          If Application.Match(Sheets(Cptr).Name, Onglet, 0) > 0 Then
               If Err.Number > 0 Then
                    Sheets(Cptr).Visible = False
               Else
                    Sheets(Cptr).Visible = True
               End If
          End If
     On Error GoTo 0
Next
End Sub

ça pourrait marcher. Mais pas du tout... :/

Quelqu'un saurait comment n'afficher que les onglets définis par leur numéro ?
Merci de votre aide !

Fichier joint : https://www.cjoint.com/c/DItrcOEnEqA