Réponse acceptée !
Private Sub CommandButton1_Click()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete
End Sub
Attention au numéro du graphique qui s'incrémente automatiquement.
Bon courage
