Camembert et ....coeur de macro

[rainbow69006]

Bonjour

Je souhaiterais faire apparaitre un graphique camembert grace à un macro.

Les colonnes à prendre serait les colonnes:
B (sur quoi porte le sous total)
E (sous total)

Les lignes à prendre ne serait que les lignes qui serait colorié en rouge.

Je suis parti de ce code mais sans succès..

Merci de votre aide

Sub Camembert()
Dim DerLig As Long
Dim nom As String
Dim MonGraph As ChartObject

nom = ActiveSheet.Name
DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

Set MonGraph = Worksheets(nom).ChartObjects.Add(100, 30, 400, 250)

ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SetSourceData Source:=Sheets("essai").cel.Interior.ColorIndex = 3, PlotBy:=xlRows

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "essai"
End With
ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
False, HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:= _
True, ShowValue:=False, ShowPercentage:=True, ShowBubbleSize:=False
ActiveChart.PlotArea.Select

End Sub