Having a little problem with .GradientStops

[Launayvolone]

Hey,
So i wrote a macro that changes my points color based on their values. But once i want to apply a gradient to some of them : everything breaks.
I know that choose the color of a gradient stop you should use .GradientsStop.Insert RGB(....) but it doesn't seem to be working with me.

Thank's for your time.

Here is my code :

Sub CodeCouleur()
 Dim s As Series
 Dim i As Long
 Dim g As Long
 Dim pt As Point
 
 g = 0
 T = 0

 
 Sheets(12).ChartObjects(1).Select
 With ActiveChart
 For Each s In .SeriesCollection
 For i = 1 To s.Points.Count
 Set pt = s.Points(i)
 If Cells(10 + i, 9 + g).Value >= 1.1 Then
 s.Points(i).MarkerBackgroundColor = RGB(237, 125, 49)
 ElseIf Cells(10 + i, 9 + g).Value <= 1.1 And Cells(10 + i, 9 + g).Value >= 0.3 Then
 With pt.Format.Fill
 .ForeColor.RGB = RGB(0, 128, 128)
 .OneColorGradient msoGradientVertical, 1, 1
 .GradientStops.Insert RGB(237, 125, 49)
 End With
 ElseIf Cells(10 + i, 9 + g).Value <= 0.3 And Cells(10 + i, 9 + g).Value >= -0.3 Then
 s.Points(i).MarkerBackgroundColor = RGB(191, 191, 191)
 ElseIf Cells(10 + i, 9 + g).Value >= -1 And Cells(10 + i, 9 + g).Value <= -0.3 Then
 With pt.Format.Fill
  .ForeColor.RGB = RGB(37, 64, 98)
  .OneColorGradient msoGradientVertical, 1, 1
  .GradientStops.Insert RGB(37, 64, 98), 0.5
 End With
 ElseIf Cells(10 + i, 9 + g).Value <= -1.1 Then
 s.Points(i).MarkerBackgroundColor = RGB(37, 64, 98)
 End If
 
 
 Next i
 g = g + 1
 Next s
 
 End With
End Sub