VBA, Objet requis

Bonjour,
Je cherche a faire une macro me créant deux graphique cote a cote sur la même page,
Mais avant de pouvoir vraiment testé ma macro j'ai une erreur Objet requis pointant sur le Sub,
Voici mon code:


Sub patate()
Dim plage As Range
Set plage = Application.InputBox(prompt:="Sample", Type:=8)
Setnouv = Workbooks.Add
Set gr = nouv.Charts.Add
Set Z = 0


While Z <> 2
Z = Z + 1
With gr
.SetSourceData Source:=plage
.ChartType = xl3DLine
.Location where:=xlLocationAsNewSheet
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "TEMPS"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Delta_d"
.PlotArea.Interior.ColorIndex = 2
.Axes(xlValue).MajorGridlines.Border.LineStyle = xlDot
.ChartArea.Font.Size = 14
.Deselect
End With
Wend

With Sheets(1)
.Shapes("Chart 1").Left = 0
.Shapes("Chart 1").Top = 0
.Shapes("Chart 2").Top = 0
.Shapes("Chart 2").Left = .Shapes("Chart 1").Width + 5
End With

End Sub

Si vous avez une idée de resolution.
Cordialement Nicolas