VBA problème avec nom des graphiques

Bonjour,

J'ai un problème avec le nom de mes graphique. Voici mon code

Application.ScreenUpdating = False
Charts.Add
NomGraphe = ActiveChart.Name
MsgBox NomGraphe

ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Courbes - Histogramme"
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("C4")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R15C5:R15C17"
ActiveChart.SeriesCollection(1).Values = "=Feuil1!R16C5:R16C17"
ActiveChart.SeriesCollection(1).Name = "=Feuil1!R16C3"
ActiveChart.SeriesCollection(2).XValues = "=Feuil1!R15C5:R15C17"
ActiveChart.SeriesCollection(2).Values = "=Feuil1!R17C5:R17C17"
ActiveChart.SeriesCollection(2).Name = "=Feuil1!R17C3"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"

NomGraphe = ActiveChart.Name
MsgBox NomGraphe

With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False

End With
ActiveSheet.Shapes(NomGraphe).IncrementLeft -231#
ActiveSheet.Shapes(NomGraphe).IncrementTop 147.75

Application.Screanupdating = True
End Sub

Dans la première msgbox il me dit : Graph12 (et au prachain lancement ca sera graph13...)
dans la deuxieme il me dit : Feuil1 Graphique 19 (pourquoi? je ne lui ai pas dit de changer de nom!!!)
Et losque j'arrive à la ligne

ActiveSheet.Shapes(NomGraphe).IncrementLeft -231#

il m'affiche une erreur :

l'élément portant ce nom est introuvable.

Je ne sais pas comment faire?!

quelqu'un aurait une solution?

merci!