Couleur dans histogramme

Voici une partie du code qui génère un graphique. Je dois mal positionner des choses ou mal les écrire car cela bug alors que "dans l'ensemble" c'est cela.....

Qqun peut me le corriger svp?

   Dim wsData As Worksheet, wsChart As Worksheet
Dim rngChart As Range
Dim objChart As ChartObject
Dim objLE As LegendEntry
ActiveSheet.unprotect Password:="toto"
    Application.ScreenUpdating = False

    Set wsData = Feuil2
    Set wsChart = ActiveSheet

    On Error Resume Next
    wsChart.ChartObjects(1).Delete
    On Error GoTo 0

    Set objChart = wsChart.ChartObjects.Add _
            (Left:=wsChart.Columns("c").Left, _
            Top:=wsChart.Rows(9).Top, _
            Width:=800, _
            Height:=280)

    With objChart.Chart
        .ChartType = xlColumnStacked
        .SetSourceData Source:=Feuil2.Range("n1:o4")
        .HasTitle = True
        .ChartTitle.Text = ComboBox3.Value & " - " & ComboBox4.Value
        .HasLegend = True
        .Legend.Position = xlTop
            With .Legend
            .Font.Bold = True
            .Font.Italic = True
            For Each objLE In .LegendEntries
                objLE.Font.Color = objLE.LegendKey.Interior.Color
            Next
            End With
        End With
    Active.Chart.SeriesCollection(4).Interior.Color.RGB = RGB(255, 0, 0)    'rouge
    Active.Chart.SeriesCollection(3).Interior.Color.RGB = RGB(255, 255, 0)    'jaune
     Active.Chart.SeriesCollection(2).Interior.Color.RGB = RGB(146, 208, 80)    'vert
     Active.Chart.SeriesCollection(1).Interior.Color.RGB = RGB(0, 176, 80)    'vert2

    Set objChart = Nothing
    Set rngChart = Nothing
    Set wsChart = Nothing: Set wsData = Nothing
ActiveSheet.protect Password:="toto", DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub

Bonjour,

j'ai essayé d'avancer et la première série fonctionne mais ça bug quand il passe à la seconde.

Voici la partie du code si vous avez une idée merci

 With objChart.Chart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=Feuil2.Range("n1:o4")
        .HasTitle = True
        .ChartTitle.Text = ComboBox3.Value & " - " & ComboBox4.Value
        .HasLegend = False
        .FullSeriesCollection(1).Points(1).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 80)
        .Transparency = 0
        .FullSeriesCollection(2).Points(2).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(146, 208, 80)
        .Transparency = 0
        .FullSeriesCollection(3).Points(3).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .FullSeriesCollection(4).Points(4).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0

   End With
   End With
   End With
   End With
   End With