Réaliser une macro en VBA afin de créer un camembert

Bonjour tout le monde,

J'ai un tableau de données, en fonction de ces données je voulais créer plusieurs camembert dans une même feuil, avec des couleurs personnalisé, mais je n'arrive pas à créer mon premier camembert,

lorsque je voulais utiliser ma macro elle bloque sur :

ActiveChart.SetSourceData Source:=Bilan.Range( _

"A15:A15,B15:B15"), PlotBy:=xlColumns

Merci d'avance pour votre aide.

ma macro est la suivante,

Sub camembert()

Dim DerLig As Long

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

Charts.Add

ActiveChart.ChartType = xlPie

ActiveChart.SetSourceData Source:=Bilan.Range( _

"A14:A15,B14:B15"), PlotBy:=xlColumns

ActiveChart.ClearToMatchStyle

ActiveChart.ChartStyle = 31

ActiveChart.ClearToMatchStyle

ActiveChart.ApplyLayout (8)

With Selection.Interior

.Pattern = xlSolid

.Color = RGB(0, 128, 255)

End With

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = "SIG - Budget 2017 "

End With

ActiveChart.HasLegend = False

End Sub