J'ai un problème d'affichage en pdf

J'ai un graphique que je fais exporter en pdf et quand je le fais manuellement il est ok
Quand je le fais avec le code voir plus bas. Il affiche seulement qu'une infirme partie????

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Worksheets("Rapports").Activate
 ReportName = ReportPath & ReportFname
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ReportName, OpenAfterPublish:=False
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Avant il fonctionnait très bien il a cessé de bien fonctionné à la suite d'un 2e graphique qui a été rajouté voir code plus bas mais celui fonctionne très bien et affiche très bien aussi

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Worksheets("Rapports2").Activate
 Name = "Indicateur_Demande_Service_Affaire-"
ReportFname = ReportPath & Name & DateRapport
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ReportFname, OpenAfterPublish:=False
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Pouvez vous m'aider, j'ai quasiment tout essayé je suis en manque de ressource.

Merci