Public Sub Camembert()
MaFeuille = ActiveSheet.Name
Charts.Add
With ActiveChart
.ChartType = xlPie
.SetSourceData Source:=Sheets("REPORT CONTACT").Range("A10:A20,D10:D20"), PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:=MaFeuille
End With
MonGraph = Right(ActiveChart.Name, Len(ActiveChart.Name) - InStr(1, ActiveChart.Name, " "))
With ActiveSheet.Shapes(MonGraph)
.Top = ActiveSheet.[E12].Top
.Left = ActiveSheet.[E12].Left
.Height = ActiveSheet.[E12:H21].Height
.Width = ActiveSheet.[E12:H21].Width
End With
End Sub