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 : Sélectionner tout - Visualiser dans une fenêtre à part
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