feuille proteger

Bonsoir a tous

Dans mon probleme j'ai 18 feuille a l'ouverture avant de commencer le trie de ces feuilles , ces feuilles sont tous proteger pour ne pas detruire les formules quelles contient alors j'ai une macro d'ouverture avec Array et dans ma macro sur le next i je lui propose de debarrer cette feuille avec ce que j,ai ecrit il ne le fait pas alors j'aurais besoin de vous svp. Dans la boucle For i

merci de votre aide et attend votre suggestion , encore une fois merci

dennnisss 🙂 🙂

'***********Ouverture des feuilles cachees***************

Feuille = Array("Verificateur Patterson", "Classement Reg Temp", "Deux pour un", _
"Maître", "Classement Reg", "Calendrier", "Triage", "1 à 120", "Homme Reg Temp", _
"Verificateur Regulier", "Homme Reg", "Femme Reg Temp", "Femme Reg", "Homme Sub Temp", "Homme Sub", _
"Femme Sub Temp", "Femme Sub", "Battre Moyenne Gelee", "Battre Moyenne Semaine")

For i = 0 To 18
Sheets(Feuille(i)).Visible = True
ActiveSheet.Select
ActiveSheet.Unprotect Password:="dennnisss"
Next i