Bonsoir
tu peux peut être t'inspirer de cette macro, qui positionne un graph sur une cellule donnée (" B12 ").
Sub positionGraph()
' positionGraph Macro
' Macro enregistrée le 10/12/2006 par Bruno
With ActiveSheet.shapes("Graph_1")
.Left = Range("b12").Left
.Top = Range("b12").Top
End With
End Sub