Sub CamembertAMF()
Set MaZone = Selection.CurrentRegion
MaFeuille = ActiveSheet.Name
Charts.Add
With ActiveChart
.ChartType = xl3DPie
.SetSourceData Source:=MaZone, 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.[D3].Top
.Left = ActiveSheet.[D3].Left
.Height = ActiveSheet.[D3:J26].Height
.Width = ActiveSheet.[D3:J26].Width
End With
End Sub