Bonjour,
Je me permets de requérir votre aide une dernière fois, même si j'ai mis le sujet en résolu (pour éviter d'en ouvrir un nouveau)
Il semblerait que la boucle :
For Each Graphique In wsSheet.ChartObjects
If Left(Graphique.Name, 5) = "Chart" Then Set ChartObj = Graphique
ChartObj.Chart.Export _
Filename:=wbBook.Path & "\" & stChartName, _
FilterName:="PNG"
Next
Écrase les graphiques présents sur la feuille, pour n'afficher que le plus récent.
Merci encore pour aide, et désolé pour la réouverture du sujet...