taille d'un graphique

Bonjour à tous,

J'ai besoin d'aide pour modifier la taille d'un graphique.
Je voudrais le faire pendant sa création.
Pour créer mes graphiques j'utilise une boucle, de ce fait mes graphiques ne sont pas nommés je ne peux donc utilisé la fonction:

ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Graphique 1").ScaleWidth 0.96, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 1").ScaleHeight 0.93, msoFalse, _
msoScaleFromTopLeft


Je vous donne mon programme:

Dim MyRange As Range
Dim Calcul2 As String

Calcul2 = ActiveSheet.Name
Set MyRange = ActiveSheet.Range(ActiveCell.Offset(-1), ActiveCell.Offset(3, 12))
Range(MyRange.Address).Select

Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Courbe - Histo. 2 axes"
ActiveChart.SetSourceData Source:=Sheets(Calcul2).Range(MyRange.Address), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:=Calcul2
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = False
End With


End Sub

Sub Traitementgraphique()

Sheets("Calcul2").Select
i = 4

While Cells(i, 2) = "Moyenne Retard "

Sheets("Calcul2").Select
Range("Z4") = Cells(i, 1).Value
Cells(i, 2).Select
Application.Run "'test.xls'!Graphique"
i = i + 6
Wend

End Sub



Merci à tous pour votre aide,

Elve