Bonjour,
Sans savoir quel est le message d'erreur, ça ne va pas être simple...
Tout d'abord, et afin de te familiariser (un peu) avec l'environnement "VBA", il faudrait que tu affiches l'onglet "Développeur" dans le Ruban.
Pour cela, dans "Fichier/Options/Personnaliser le ruban", tu coches "Développeur"
Ensuite, dans cet onglet, en haut, à gauche, tu as plusieurs boutons (VBA, Macro, Enregistrer une macro....)
Je te laisse faire la découverte...
Par exemple, si tu cliques sur "Macro", Excel te propose les différentes macros disponibles. Dans ton fichier, tu cliques sur "Macro1", puis sur "Modifier"
Tu vois alors le code.
Sub Macro1()
Dim ChtObj As ChartObject
Dim Pts As Point
Set ChtObj = ActiveSheet.ChartObjects("Chart 1") 'à adapter
For Each Pts In ChtObj.Chart.FullSeriesCollection(1).Points
Pts.Interior.ColorIndex = IIf(Cells(Right(Pts.Name, Len(Pts.Name) - 3) + 5, "J") = "chute", 3, 43)
Next Pts
End Sub
Afin de savoir quel est le nom du graphique, ainsi que de la série, dans l'onglet, tu cliques sur "Enregistrer une macro", puis tu cliques sur le graphique, et ensuite sur un point.
Tu cliques sur "Arrêt de l'enregistrement", et tu vas voir le code généré (touche rapide pour accès au VBA : Alt + F11 pour un PC)
Et tu modifies le code proposé en conséquence.
Bon courage