Plage variable pour graphe glissant

Hello, vois ce qui se passe ici. Tu as juste à rentrer une valeur à la suite des autres.

Je ne suis pas expert en la matière, il y a peut-être moyen de faire plus logique. Je ne sais pas.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A60000")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
        If Target.Offset(0, 1).Value <> "" Then Exit Sub
Target.Offset(0, 1).Value = Date

L = [Tableau1].Rows.Count - 25

With ActiveSheet.Shapes("Graphique 2")
    .Left = Range("G" & L).Left
    .Top = Range("G" & L).Top
End With
End Sub