Je pense que TopLeftCell est un unique repère de la position du graphique mais le graphique n'étant pas un objet constitué de cellules, ce n'est pas réellement un range.
L'explorateur d'objet ne lui associe pas de cells.
Il faut se référer à la feuille en dessous pour des offset ou autre
Code:
Dim macellule As Range
Set macellule = ActiveSheet.Range(ChartObjects(1).TopLeftCell.Address)
Edit : la raison de la différence entre shape et un graphique n'est cependant pas très logique
Oui mais pas d'offset non plus... contrairement à macellule...
Comme dit dans l'edit de ma précédente réponse : je ne vois pas pourquoi il y a une différence de traitement entre graph et shape, mais l'explorateur d'objets donne bien une propriété cells à l'un et pas à l'autre.
Mais tout est loin d'être logique chez Microsoft...