bonjour,  
mon pb est le suivant j'ai 2 séries de valeurs et je 'arrive bien à créer 2 courbes mais j'aurais voulu créer une deuxième échelle différente de la première mais avec un min et un max différent.
voici mon code, merci :
ChartSpace1.Clear
    Set oConst = ChartSpace1.Constants
 Chartspace1.interior.SetSolid "#008EB4"
 
    'Creation d'un nouveau ChartSpace.
    Set oChart = ChartSpace1.Charts.Add
 
    'Ajout d'une série Type colonne.
    Set oSeries1 = oChart.SeriesCollection.Add
    oSeries1.Caption = "Prélévement"
    oSeries1.SetData oConst.chDimCategories, oConst.chDataLiteral, anneet 'TheDate
    oSeries1.SetData oConst.chDimValues, oConst.chDataLiteral, IFCPt   ' tableau de valeurs
    oSeries1.Type = oConst.chChartTypeColumnClustered
 oSeries1.Interior.SetSolid "#ec6700"
 
    'Add d'une série en ligne.
    Set oSeries2 = oChart.SeriesCollection.Add
    oSeries2.Caption = "Cotisations*"
    oSeries2.SetData oConst.chDimCategories, oConst.chDataLiteral, anneet 'theDate
    oSeries2.SetData oConst.chDimValues, oConst.chDataLiteral, PTt   ' tableau de valeurs
    oSeries2.Type = oConst.chChartTypeLineMarkers
    oSeries2.Interior.SetSolid "#273c7f"
 
      ' premier axe
    Set oAxis1 = oChart.Axes(oConst.chAxisPositionLeft)
    oAxis1.Scaling.Maximum = 5000
    oAxis1.Scaling.Minimum = 0
    oAxis1.NumberFormat = "0 €"
    oAxis1.HasMajorGridlines = false

Faut gérer avec les axisgroups
 
Un exemple que j'avais fait il y a qq temps :  
 
    Sheets(LastChart).Activate
    i1 = ActiveChart.SeriesCollection.Count
    ActiveChart.SeriesCollection.Add Source:=objRange
    i2 = ActiveChart.SeriesCollection.Count
    For i = i1 + 1 To i2
        ActiveChart.SeriesCollection(i).Name = SerieName & " " & ActiveChart.SeriesCollection(i).Name
        If SerieName = "HistoVol" Then ActiveChart.SeriesCollection(i).AxisGroup = 2
    Next