Créer un graphique à plage variable

Bonjour,

J'aimerai faire un graph avec une plage de donnée dont je ne connai pas la longueur, comment faire ??
J'ai une petite idée avec la fonction "CurrentRegion" mais je n'y arrive pas.
Voila mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Range("B5").CurrentRegion.Select
    Charts.Add
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData Source:=Sheets("Arrêt machine").Range("A5:A19"), _
        PlotBy:=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "='Arrêt machine'!R5C2:R20C2"
    ActiveChart.SeriesCollection(1).Values = "='Arrêt machine'!R5C1:R20C1"
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graphique"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = _
        "Nombre d'arrêt machine + code arrêt de la journée sélectionnée"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Code arrêt"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nombre d'arrêt dans la journée"
    End With
    ActiveChart.HasLegend = False
    ActiveChart.HasDataTable = False