Créer un graphique avec la dernière ligne d'un tableau

Bonjour,
Je possède sur une feuille excel un tableau qui peut varier de longueur. Je souhaite créer une macro qui trace un graphique bâton avec la première ligne de de ce tableau et la dernière ligne.

Mon code est le suivant:

Sub graph2()
' Dim DLig As Long
DLig = Worksheets("Plan GER").Range("G" & Rows.Count).End(xlUp).Row

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("G:K" & DLig)
ActiveChart.SeriesCollection(1).XValues = "='Plan GER'!$G$9:$K$9"
End Sub


l'erreur se trouve à la ligne:
ActiveChart.SetSourceData Source:=Range("G:K" & DLig)

Pouvez-vous m'aider svp?