Bonjour le forum

J'utilise le code ci-dessous proposé par mercatog dans ce forum, je l'ai légèrement modifié pour qu'il s'adapte au nombre de cellule de la colonne.
Il me permet de générer un graphique après le traitement d'une autre macro.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Graphique()
'Macro proposée par mercatog
Dim Grf As ChartObject
Dim Sh As Worksheet
 
Set Sh = Sheets("Feuil1")
'On supprime tous les graphiques
For Each Grf In Sh.ChartObjects
    Grf.Delete
Next Grf
'On crée notre graphique
Set Grf = Sh.ChartObjects.Add(620, 30, 500, 200)
With Grf.Chart
    .ChartType = xlLineMarkers
    .SeriesCollection.NewSeries
    With .SeriesCollection(1)
        .Values = Sh.Range("J2:J" & Range("J" & Cells.Rows.Count).End(xlUp).Row)
        .XValues = Sh.Range("D2:D" & Range("D" & Cells.Rows.Count).End(xlUp).Row)
    End With
End With
Set Grf = Nothing
Set Sh = Nothing
 
End Sub
Ce code fonctionne très bien mais je voudrais rajouter une colonne (voir plusieurs autres qui ne sont pas forcement à côté) en .Values.
XValues resterait sur une colonne unique (D).

Je voudrais également pouvoir avec cette même macro modifier le nom des courbes qui par défaut s'appellent Série xxxx.

Je n'arrive pas à solutionner ces deux questions.

Pouvez-vous m'indiquer des pistes.

Merci pour votre aide