copier coller dans graph

Bonjour
une proposition à adapter
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Graf As ChartObject
Dim lbl As Shape
Dim i As Byte
 
 
With Sheets("Feuil1")
    Set Graf = .ChartObjects(.ChartObjects.Count) 'le dernier graphe, on peut aussi utiliser le nom du graphique
    'pour écrire les cellules A8 et B8 dans le titre du graphe
    Graf.Chart.ChartTitle.Characters.Insert .Range("A8").Value & " " & .Range("B8").Value
 
    'pour créer 2 labels et y reporter les valeurs de A8 et B8
    For i = 1 To 2
        On Error Resume Next
        Set lbl = Graf.Chart.Shapes("Label" & i)
        On Error GoTo 0
        If lbl Is Nothing Then Set lbl = Graf.Chart.Shapes.AddLabel(msoTextOrientationHorizontal, 10, 10 * i, 80, 30)
        lbl.Name = "Label" & i
        lbl.TextFrame.Characters.Text = .Cells(8, i).Value
        Set lbl = Nothing
    Next i
End With