Option Explicit
Private ClnConsignes As New Collection
Public Sub Consigne(ByVal R As Range, ByVal IC As Long)
ClnConsignes.Add R: ClnConsignes.Add IC
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim R As Range, IC As Long
While ClnConsignes.Count > 0
Set R = ClnConsignes(1): ClnConsignes.Remove 1
IC = ClnConsignes(1): ClnConsignes.Remove 1
R.Interior.Color = IC: Wend
End Sub