Bonjour,
Question : pourquoi tu n'as pas mis tes valeurs dans un tableau avant de faire ton graphique ?
avec l'enregistreur de macro j'ai juste agrandi le graphique :
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Graphique 1").ScaleWidth 1.3393258427, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 1").ScaleHeight 2.1724137931, msoFalse, _
msoScaleFromTopLeft
End Sub