Copie d'une couleur de fond à chaque calcul(calculate)

Bonjour,

Voila mon problème:

Je desire recopier la couleur de fond de cellules avec mise à jour automatique:

Je m'explique, j'ai une liste de noms en colonne A et une mise en forme conditionnelle avec "indicateur d'état" en colonne I

A I

DUPONT 1 (mise de la couleur jaune)
MARTIN 2 (mise de la couleur rouge)
....

Je souhaite passer le fond des cellules de la colonne B de la même "couleur conditionnelle" que la colonne I à l'aide d'une macro "Calculate"...
J'ai essayé la macro suivante, mais elle part en boucle recurrente infinie et de surcroit la function "Interior.ColorIndex" ne sait pas lire la couleur "conditionnelle".

Private Sub Worksheet_Calculate()
Dim L As Variant

With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False

For L = 5 To 40

Cells(L, 2).Interior.ColorIndex = Cells(L, 9).Interior.ColorIndex

Next L

With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Merci pour votre cooperation