Afficher/Masquer onglet

Bonjour,

J'ai vu une question similaire mais ca ne répondait pas vraiment à ce que je voulais faire. ALors voila j'ai dans une feuille excel 2 boutons que j'ai creer afin de pouvoir afficher certaines feuilles pour l'un et les cacher pour l'autre, cependant à quand je clique sur mon bouton (ce sont des bouton formulaire) cela me sort une erreur.

J'ai affecter le code suivant :

Sub Bouton33_Cliquer()


'Masque les informations
For Each sh In Array("T2-A", "T2-A-TB1", "T2-A-TB2", "T2-A-TB1&2", "T2-R", "T2-R-TB1", "T2-R-TB2", "T2-R-TB1&2")
            Sheets(sh).Visible = xlVeryHidden
        Next sh
        
Sheets("2 - Data 1").Select


End Sub

l'erreur sortie est : l'indice n'apparient pas à la selection alors que ce sont bien les mêmes noms que mes feuilles et me surligne :

 Sheets(sh).Visible = xlVeryHidden

et en passant ma souris sur la ligne surligner en jaune il me dit que sh=T2-A et que xlVeryHidden=2

Si quelqu'un voit où j'ai pu faire une erreur

Merci d'avance