Bonjour
Le problème c'est que les couleurs de tes cellules proviennent d'une MEFC
Tu pourrais modifier ta macro
tu remplaces
point_couleur = ActiveCell.Offset(0, I).Interior.ColorIndex
par (exemple)
If ActiveCell.Offset(0, I) > 0 Then
point_couleur = 4
Else
point_couleur = 3
End If
Bonne journée