Salut Didier_SM
Delete ta feuille graphique avant d'activer ta nouvelle, j'utilise ceci pour un graphique sur une feuille
Sub Graphique()
Application.DisplayAlerts = False
Sheets("Graphique").Select
ActiveWindow.SelectedSheets.Delete
A = Range("c65535").End(xlUp).Row - 2
Charts.Add
ActiveChart.ChartType = xlColumnClustered
With Worksheets("Triage")
ActiveChart.SetSourceData Source:=.Range(.Cells(A, 3), .Cells(A, 72)), PlotBy _
:=xlRows
End With
With ActiveChart
.Name = "Graphique"
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Application.DisplayAlerts = True
End Sub
Ca devrait regeler ton probleme
Mytå