mise en forme d'un graphique via tableau croisé dynamique

[nisuc]

bonjour à tous
merci de prendre 5 minutes pour mon problème..
j'ai un graphique automatique via un tableau croisé dynamique mais qui perd sa mise en forme dès nouvelle actualisation ou nouvelle sélection.
voici ma macro que voudrais faire appliquer dès nouvelle actualisation ou nouvelle sélection. j'ai créé un type de graphique personnalisé. ("graph prod")

Sub miseenformegraph()
'
ActiveChart.PlotArea.Select
ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:= _
"graph prod"

merci d'avance de votre aide
philippe