Sub test()
Dim datas, rng As Range, cht As Object
datas = Array(28, 22, 16, 22, 14, 30, 22, 18, 12)
[A1:B1] = [{"NOMS","Chocolats"}]
[A2:A10] = "=""NOM_""&ROW()-1"
[B2:B10] = Application.Transpose(datas)
Set rng = Range("A1:B10")
Set cht = ActiveSheet.Shapes.AddChart2
cht.Chart.SetSourceData Source:=rng
cht.ChartType = xlColumnClustered
End Sub