Option Explicit
Sub Graph1()
ActiveSheet.Shapes.AddChart.Select
ActiveSheet.ChartObjects(1).Name = "Graph1"
ActiveSheet.ChartObjects(1).Top = 126
ActiveSheet.ChartObjects(1).Left = 453
ActiveSheet.ChartObjects(1).Height = 250
ActiveSheet.ChartObjects(1).Width = 250
ActiveSheet.ChartObjects("Graph1").Activate
ActiveChart.ChartType = xlDoughnutExploded
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 26
ActiveChart.ClearToMatchStyle
ActiveChart.SetSourceData Source:=Range("J4:L6")
ActiveSheet.ChartObjects("Graph1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""TOTAUX"""
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range("J4:L4,J6:L6")
ActiveChart.ChartArea.Select
With ActiveSheet.Shapes("Graph1").Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0.3399999738
.ForeColor.Brightness = 0
.BackColor.ObjectThemeColor = msoThemeColorAccent1
.BackColor.TintAndShade = 0.7649999857
.BackColor.Brightness = 0
.TwoColorGradient msoGradientHorizontal, 1
End With
Selection.Format.Fill.Visible = msoTrue
End Sub