Bonjour Hutch,
Quelques remarques sans avoir essayer d'approfondir :
1- Ce n'est pas "Rejet prod Gr/M2" mais "'Rejet prod Gr/M2", un apostrophe qui fait la différence.
2- J'ai remplacé ser.Values.count par UBound(ser.Values)
3- votre "objectif" est de 680 donc jamais atteint, j'ai mis 40 en dur. "Objectif" est à revoir.
4- J'ai rajouté à la fin "Charts(1).Select" pour rafraichir le graphique, on doit trouver mieux comme solution.