Private Sub CommandButton1_Click()
Dim o As Object 'déclare la varialbe o (Onglet)
Application.ScreenUpdating = False 'masque les changements à l'écran
ActiveCell.Select 'enlève le focus au bouton
If CommandButton1.Caption = "Afficher tous les onglets" Then 'condition : si le texte du bouton est "Afficher tous les onglets"
CommandButton1.Caption = "Masquer tous les onglets sauf" & Chr(13) & "Analysis" 'redéfinit la texte du bouton
For Each o In Sheets 'boucle sur tous les onglets du classeur
o.Visible = True 'affiche l'onglet
Next o 'prochain onglet de la boucle
Else 'sinon
CommandButton1.Caption = "Afficher tous les onglets" 'redéfinit le texte du bouton
For Each o In Sheets 'boucle sur tous les onglets du classeur
If Not o.Name = "Analysis" Then o.Visible = False 'si le nom de l'onglet est différent de "Analysis", masque l'onglet
Next o 'prochain onglet de la boucle
End If 'fin de la condition
Application.ScreenUpdating = True 'affiche les changements à l'écran
End Sub