Salut Florent
j'ai rajouté un test sur ta macro pour le cas ou il n'y a pas de couleur :la valeur de color index passe à -4000 et des poussières
Sub Colorie_Bulles1()
'
Dim nbval, a, col As Integer
'Sélectionne le "Graphique 1"
ActiveSheet.ChartObjects("Graphique 4").Activate
'Définis le nombre de points dans la collection
nbval = ActiveChart.SeriesCollection(1).Points.Count
' Sélectionne chacun des points et lui attribue
' la couleur de la cellule lui correspondant.
For a = 1 To nbval
col = Range("e" & a + 1).Interior.ColorIndex
If Range("e" & a + 1).Interior.ColorIndex > 0 Then
With ActiveChart.SeriesCollection(1)
.Points(a).Interior.ColorIndex = col
End With
End If
j'ai mis du rouge et ça passe bien
A+G.David