afficher/masquer graphique sur une autre feuille

[rodger85]

Bonjour
je cherche a afficher / masquer un graphique sur une autre feuille en vba
celui ci marche bien mais est sur la feuille active .ce que je voudrais c'est avoir un bouton sur la feuille "Accueil"
qui prend des graphs de la "feuille 2" pour l'afficher sur la "feuille 3"
Private Sub CommandButton1_Click()
With Worksheets("Feuil1")
.Select
ActiveSheet.ChartObjects("Graphique 1").Visible = True
ActiveSheet.ChartObjects("Graphique 3").Visible = True
ActiveSheet.ChartObjects("Graphique 2").Visible = False
End With
End Sub
----------------------------------------
et celui ci permet de changer de graph
Private Sub CommandButton2_Click()
ActiveSheet.ChartObjects("Graphique 2").Visible = True
ActiveSheet.ChartObjects("Graphique 1").Visible = False
ActiveSheet.ChartObjects("Graphique 3").Visible = False
End Sub
merci d'avance