nommer et placer un graph

Bonjour,
je suis en train d'automatiser la création de graph à l'aide de l'enregistreur de macro. Mais, lorsqu'il me renvoie le graph, il me le met au milieu de la feuille. Moi j'aimerais qu'il me le mette dans une cellule bien définie pour que je puisse le sélectionner après et faire un copier coller sur une autre feuille.
De plus j'aimerais savoir si c'est possible de nommer mon graph car ds ma feuille, il y aura deux graphes, donc si je veux faire des copier coller de ces graph, ce serait plus pratique.
Voici ma macro, si qqun pouvait me la modifier, ce serait cool.Merci.

Sub Macro3()
'
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Tous").Range("G25:G35,J25:J35"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tous"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Evolution Trimestrielle de la Répartition par Tranche de Ratings (En % de l'actif)"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.HasLegend = False
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.Axes(xlCategory).Select
With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlContinuous
End With
With Selection
.MajorTickMark = xlOutside
.MinorTickMark = xlNone
.TickLabelPosition = xlNextToAxis
End With
ActiveChart.PlotArea.Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
Selection.Interior.ColorIndex = xlNone
ActiveChart.Axes(xlValue).MajorGridlines.Select
With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlDot
End With

ActiveChart.ChartArea.Select

End Sub

Je regarde pas l'ensemble de ton code mais essai avec cette propriete la

.ChartObjects(1).Left = .Columns("B").Left
.ChartObjects(1).Top = .Rows(2).Top


voila
ca devrait t'aider