Sub MiseAjourGraph()
Dim oGraph As Chart
Dim i As Integer
If Sheets("BDD").ChartObjects.Count = 0 Then Exit Sub
With Sheets("BDD").ChartObjects(1).Chart
.SetSourceData Source:=Union(Sheets("BDD").Range("Etiquettes"), Sheets("BDD").Range("GraphDatas")), PlotBy:=xlColumns
For i = 1 To .SeriesCollection.Count
.SeriesCollection(i).Name = Sheets("BDD").Range("GraphDatas")(0, i).Text
Next
End With
End Sub