Private Sub CommandButton1_Click()
With ChartObjects(1).Chart
.FullSeriesCollection(2).IsFiltered = CommandButton1.Caption = "Masquer"
.ChartGroups(1).FullCategoryCollection(4).IsFiltered = CommandButton1.Caption = "Masquer"
.ChartTitle.Text = .FullSeriesCollection(1).Name & IIf(CommandButton1.Caption = "Masquer", "", " et " & .FullSeriesCollection(2).Name)
End With
CommandButton1.Caption = IIf(CommandButton1.Caption = "Masquer", "Afficher", "Masquer")
End Sub