Sub CREER_GRAPH()
Dim Plage As Range: Set Plage = Sheets("Feuil1").Range("A1:B10")
With ActiveSheet.ChartObjects.Add _
(Left:=180, Width:=375, Top:=75, Height:=225)
With .Chart
.ChartType = xlColumnClustered
.SetSourceData Source:=Plage
.Parent.Name = "TOTO"
End With
End With
End Sub