Histogramme groupe

Bonjour,

Je dois creer un histogramme groupe en vba, mais bon j'arrive pas a le faire.

sur l'axe horizontale de cet histogramme je veux mettre les dates: septembre,octobre,novembre

sur l'axe verticale je veux mettre le total: 0,100,200,300

Pour les types: meme couleur pour A1 et A2(ex : rouge) ,B1 et B2(ex:bleu) ...

Voici le fichier de donnees, qlq'un peut m'aider svp ?

Merci

avec l'enregistreur de macro...:

Sub test()

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("Feuil1!$D$1:$K$3")
    ActiveChart.Legend.Delete

    ActiveChart.SeriesCollection(1).Points(1).Select
    With Selection.Format.Fill
        .ForeColor.ObjectThemeColor = msoThemeColorAccent2
    End With
    ActiveChart.SeriesCollection(1).Points(2).Select
    With Selection.Format.Fill
        .ForeColor.ObjectThemeColor = msoThemeColorAccent2
    End With

    ActiveChart.SeriesCollection(1).Points(6).Select
    With Selection.Format.Fill
        .ForeColor.ObjectThemeColor = msoThemeColorAccent3
    End With
    ActiveChart.SeriesCollection(1).Points(8).Select
    With Selection.Format.Fill
        .ForeColor.ObjectThemeColor = msoThemeColorAccent3
    End With
End Sub