Bonjour CBernardT, Marie, 🙂
Juste sur le pb de syntaxe, au niveau du code d'erreur, c'est normal, le code ne sait pas à quoi se référer, dans ce cas, il lui manque l'objet Worksheet (= Worksheets(item)) c'est lui qui 'contient' la collection ChartObjects, donc plantage.
C'est à quoi sert le point devant dans le code, il est lié à l'utilisation de l'instruction With (voir le code de CBernardT et l'aide VBA), si tu n'utilises pas With, End With il faut alors mettre l'équivalent soit :
Set ch =Worksheets('Feuil1'). ChartObjects.Add(3, 1, 300, 700)
En espérant que le pb est là, sinon , il serait mieux que tu joignes le classeur, le pb sera plus facile à voir... 😉
Bonne journée,
Brico