Création bouton (masquer afficher )

Bonjour à tous ,
*
Pourriez –vous m’aider s’il vous plait car j'ai regardé sur le forum et je n'ai rien trouvé que je sois en mesure d'adapter

J’ai un classeur avec 30 feuilles comportant des noms divers
*La 1ére se nomme*: Accueil_____La dernière visible 😀upont Perso (6)

Je voudrai faire un bouton _ Masquer , Afficher ou quelque chose de similaire qui me permettrait d’afficher ou de masquer des feuilles


>Masquer ou afficher les feuilles définies
Accueil
Dubois
Zaza (5)
Dupont Perso(6)
*
>Masquer afficher les autres feuilles non définies

>Et pouvoir réafficher l’ensemble feuilles définies et feuilles non définies, mais les feuilles préalablement masquées resteraient masquées
*
Merci et bonne journée
j'ai fait un fichier exemple avec 12 feuilles dont 2 préalablement masquées

Merci d'avance pour votre help



>>>>>>>Je joins un second fichier qui n'a rien à voir avec le premier.
"si quelqu'un pouvait me donner une explication "

Option Explicit

Sub AjoutFeuilles()
For i = 1 To 5
Sheets("Feuil1").Copy After:=Sheets(Sheets("Feuil1").Index + i - 1)
Sheets(Sheets("feuil1").Index + i).Name = "Feuil " & Format(i, "0")
Next
End Sub


je ne comprend pas pourquoi mes quelques lignes de code ne fonctionnent pas, message (variable i non définie) alors que sur un autre fichier, les mêmes lignes de code fonctionnent

merci et bonne fin de journée