Bonjour à toutes et tous,

Je viens d'écrire ce code dans une application Excel. Pouvez-vous m'aider à l'écrire de manière plus claire s'il vous plait ?
Le code fonctionne, mais ça me paraît long en écriture pas en exécution.
Merci par avance
Amicalement
René

Avec le code c'est mieux

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
 
Private Sub BtFerm1_Click()
Me.MultiPage1(4).Visible = True
Me.MultiPage1(0).Visible = False
Me.MultiPage1(1).Visible = False
Me.MultiPage1(2).Visible = False
Me.MultiPage1(3).Visible = False
 
 Range("A3").Select
                        Sheets("Tab_Gest").Visible = xlSheetVeryHidden
                        Sheets("Bât_Ville").Visible = xlSheetVeryHidden
                        Sheets("Bât_CU").Visible = xlSheetVeryHidden
                        Sheets("Arch_Ville").Visible = xlSheetVeryHidden
                        Sheets("Arch_CUCLM").Visible = xlSheetVeryHidden
                        Sheets("Arch_Bât").Visible = xlSheetVeryHidden
                        Sheets("Arch_Dét").Visible = xlSheetVeryHidden
                        Sheets("Général").Visible = xlSheetVeryHidden
                        Sheets("Règles_Tri").Visible = xlSheetVeryHidden
                        Sheets("F1").Visible = xlSheetVeryHidden
                        Sheets("Données").Visible = xlSheetVeryHidden
Unload Me
End Sub