Besoin d'explications pour un un code existant

Bonjour,
Que je vous explique, j'ai un graphique avec 6 séries de données qui donne pour chacune le nombre d'heure en service (ce sont des véhicules) en fonction de la semaine.

Ce que je souhaiterai, c'est qu'en coloriant une des cellules d'une de mes séries, le point correspondant apparaisse sur la courbe et lui seul (c'est juste une ligne pour l'instant étant donné qu'il y a beaucoup de données).

Dans l'absolu il pourrait y avoir un point par courbe (il correspond à la dernière visite aux ateliers)

J'ai trouvé ce petit bout de code suite à mes pérégrinations sur internet, cependant il change la couleur d'une donnée selon la valeur (je crois):

Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
   If ElementID = 3 And Arg2 > 0 Then
      x = Application.Index(ActiveChart.SeriesCollection(1).XValues, Arg2)
      y = Application.Index(ActiveChart.SeriesCollection(1).Values, Arg2)
      If Not Sheets(1).Cells(Arg2 + 1, 1).Comment Is Nothing Then
        Sheets(2).Shapes("monshape").TextFrame.Characters.Text = _
          "Point: " & Arg2 & " x=" & x & " y=" & y & _
           Chr(10) & Sheets(1).Cells(Arg2 + 1, 1).Comment.Text
      End If

      For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
        ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 36
      Next i
      ActiveChart.SeriesCollection(1).Points(Arg2).Interior.ColorIndex = 4
    End If
 End Sub

Le problème étant que je ne comprends pas tout loin de là... Est-ce que vous pourriez le commenter et/ou expliquer la syntaxe.
Je donne le lien de la page, le code est tout en bas.
http://boisgontierjacques.free.fr/pages_site/graphiques.htm


Mes données sont sur une feuille "Relevés" et le graph sur la feuille "Graph AST".


Voilà ma situation donc si quelqu'un peut m'aider il est le bienvenue ! Et je reste à dispo pour tout éclaircissement supplémentaire.

Merci d'avance.

P.S: Je ne peux pas vous donner le fichier malheureusement.