[VBA] trace graphe iteratif

Bonjour a tous,

j ai un programme qui tourne, qui me permet de copier des fichiers contenus dans un dossier et de les coller dans differentes feuilles d un autre document excel. Ces fichiers contiennent des donnees qui doivent permettent de tracer une courbe. J ai donc ecrit un sous-programme pour demander a VBA de tracer cette courbe a partir des donnees dans chacune des feuilles du document excel mais c est la que j obtiens un bug.

Voici mon sous-programme :

Private Sub DrawCurve(ByRef ws)

ws.Activate
ws.Range("B2:C96").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=ws.Range("B2:C96")
ActiveChart.Location Where:=xlLocationAsObject

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Kennlinie I(V)"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Spannung [V]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Strom [A]"
End With

End Sub

Le probleme intervient a la ligne "ActiveChart.Location Where:=xlLocationAsObject" : erreur 5, mauvais appel de procedure ou mauvais argument, ou qqchose comme ca...

J avais ecrit ce code a la base pour tracer un graphe dans un feuille dont le nom etait predefini et ca marchait tres bien. Ici, je pense que le pb vient du fait que je demande au graphe de se tracer dans "la feuille active a l instant t".
Quelqu un aurait une idee ?

Merci beaucoup !

Charlotte