Optimisation par ARRAY

Bonjour,

Je souhaiterais ameliorer une macro qui sert à afficher/masquer les onglets de mon classeur en fonction d'une table
Je pense que la fonction array serai le meilleur outil mais je ne le maitrise pas.
Si qq'un pouvait jeter un oeil au code si dessous et mes donner la clé pour améliorer l'ensemble....

Merci d'avance:
ccool:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim i As Integer ZCH = 1 Dim NbZCh As Integer Dim n As Integer, X As Byte Dim WB1 As Workbook Dim MyArray() As String z = 0   Sheets("données").Visible = True   For z = 4 To Sheets.Count Sheets(z).Visible = Range("TableOnglets").Cells(z, 1).Value Next z     Sheets("Aide mémoire RPTX1").Visible = True Sheets("Prog Journalier ZCH").Visible = True Sheets("saisie").Visible = True Sheets(1).Visible = Range("TableOnglets").Cells(1, 1).Value Sheets("PAGE DE GARDE (1)").Visible = True     Sheets(2).Select   End Sub

---