Bonjour

J'ai créer un bouton et je désirerais masquer toutes les feuilles sauf celle nommée "BCA"


Code : Sélectionner tout - Visualiser dans une fenêtre à part
Private Sub CommandButton4_Click()

Quelqu'un peut m'aider, merci

Autre question :

Voici mon code, il marche très bien mais est-il possible de ne pas devoir recomier toutes les feuilles une à une ? - possible de les grouper ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub CommandButton1_Click()
Sheets("BCA").Visible = xlSheetVisible
Sheets("BCA2").Visible = xlSheetVisible
Sheets("KBin").Visible = xlSheetVeryHidden 'ou xlSheetVeryHidden
Sheets("KBin2").Visible = xlSheetVeryHidden 'ou xlSheetVeryHidden
End Sub
Merci et bonne journée