Définir des variables dans macrocommande exel

Bonjour,

je cherche à réaliser un graph à partir d'une plage de cellules variable en nombre de ligne. A partir d'une liste de causes de 30 lignes, je classe les valeurs en ordre décroissant afin de relèguer les valeurs à 0 en fin de liste et je supprime manuellement toutes les lignes qui affichent 0, afin de ne garder que les lignes à valeur >0 pour tracer mon diagramme barre. Ceci afin de faciliter la lecture et épurer le graph.
Les causes ne sont pas identiques à chaque visualisation, et le nombre de causes ( lignes )varient à chaque etude.

J'ai fait une tentative d'enregistrement de macro via clavier mais sur la 6° ligne, il prend une rèf absolue de plage
si je rajoute une ligne à) mon tableau, elle ne figure pas sur le graph, et inversement si je supprime une ligne mon graph comporte un cause ( ligne vide)

rem, la cellule d'entrée de plage de données est fixe dans le temps (D2), le nombre de colonne est fixe (2)
seul le nombre de ligne varie.
je cherche du cote des aides microsoft, quelqu'un peut il me venir en aide ?

Range("D2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("D2:E6"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.HasLegend = False