Plage d'un graphique jusqu'à cellule non vide

Bonjour à tous,

Je cherche une solution pour attribuer automatiquement la plage de mon graphique1 jusqu'à la dernière cellule non vide.

J'ai essayé ceci mais, je ne comprend pas pourquoi cela ne fonctionne pas.

Ma plage de donnée étant C18:D????

Sub Test()

    DernLigne = Range("D" & Rows.Count).End(xlUp).Row

    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    Application.CutCopyMode = False
    ActiveChart.SetSourceData Source:=Range("C18:D" & DerLigne).Select

End Sub

J'obtiens l'erreur suivante:

Erreur d'exécution 1004

La méthode 'range' de l'objet '_Global' a échoué

Je suis ouvert à toute propositions,

merci par avance, A plus

Bonjour

Met tes données sous forme de tableau structuré et base ton graphique sur ce tableau : tout suivra automatiquement