Répresenter graphiquement les dates et valeurs de fin de contrat de mes clients

Private sub Worksheet_Change(ByVal Target As Range)
 
 Dim Rg As Range
 Application.ScreenUpdating = False
 
 Set Rg = Intersect(Target, Columns(3))
 If Not Rg Is Nothing Then
 
    ActiveSheet.ChartObjects("mongraphe").Activate
    'Application.ScreenUpdating = False
    On Error Resume Next
    
          i = 1
 'on définit la plage contenant les noms par sa position par rapport à la plage age
 'ceci permet de définir dynamiquement les plages ages et taille et d'avoir des trous dans
 'la plage noms
 'on peut aussi directement définir le range contenant le texte des étiquettes
    
    Set plage = Range("date").Offset(0, 2)
    
    For Each c In plage
      Set Point = ActiveChart.SeriesCollection(1).Points(i)
      With Point
        .ApplyDataLabels Type:=xlShowValue
        .DataLabel.Text = True
        .DataLabel.Text = c.Text
      End With
    i = i + 1
    Next
   
 End If
 end sub