Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Masquer toutes les feuilles sauf Accueil !" Then
CommandButton1.Caption = "Afficher tous les Onglets"
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetHidden
Next i
Else
CommandButton1.Caption = "Masquer toutes les feuilles sauf Accueil !"
For i = 2 To Sheets.Count
Sheets(i).Visible = True
Next i
End If
End Sub