Graphique croisé dynamique - axe secondaire qui disparait

Bonjour,

Je n'ai pas trop le temps aujourd'hui, je regarde.

Sub MajSeriePluviometrie()

Dim I As Integer
Dim ChartPluvio As Chart

   With Sheets("Graphique")
        .Activate
        Set ChartPluvio = .ChartObjects("Graphique 4").Chart
        With ChartPluvio
             For I = 1 To .FullSeriesCollection.Count
                 With .FullSeriesCollection(I)
                      Select Case .Name
                             Case "Somme de pluviométrie"
                                  .ChartType = xlColumnClustered
                                  .AxisGroup = 2
                             Case Else
                                  .ChartType = xlLine
                                  .AxisGroup = 1
                      End Select
                  End With
             Next I

             With .Axes(xlValue, xlSecondary)
                  .TickLabels.NumberFormat = "0"
                  .HasTitle = False
             End With

             With .Axes(xlValue, xlPrimary)
                  .TickLabels.NumberFormat = "0"
                  .HasTitle = True
                  .AxisTitle.Caption = "Pluviométrie trimestrielle moyenne (mm)"
             End With

        End With

   End With
   Set ChartPluvio = Nothing

End Sub

Merci ;-)