Creation graphique

Sub graphs()
Dim plage As Range

For g = Range("g65536").End(xlUp).Row To 2 Step -1
  Set plage = Range("e1:g1," & "E" & g & ":G" & g & "")   '/// modif pmo

'/// ajout pmo
Dim Titre$
Dim i&
  Titre$ = ""
  For i& = 2 To 4 'colonnes B à D
    Titre$ = Titre$ & Range(Cells(g, i&), Cells(g, i&)) & Space(1)
  Next i&
'///

  Charts.Add
  With ActiveChart
    .ChartType = xl3DPieExploded
    .SetSourceData Source:=plage
    .SeriesCollection(1).ApplyDataLabels
    .SeriesCollection(1).DataLabels.Select
    .SeriesCollection(1).Select
     Selection.Explosion = 36
                
'/// ajout pmo
    .HasTitle = True
    .ChartTitle.Characters.Text = Titre$
'///

      With ActiveSheet
        .SeriesCollection(1).DataLabels.Select
         Selection.ShowPercentage = True
         Selection.ShowValue = False
         Selection.Position = xlLabelPositionOutsideEnd
      End With
  End With
      
  Worksheets("toto").Activate
  Call Export_jpeg
  Call delete
Next
End Sub