Le Hollandais Volant

// nouveau module :
Function ColorIndex(CellColor As Range)
    ColorIndex = CellColor.Interior.ColorIndex 
    ActiveWorkbook.ForceFullCalculation = True
End Function

// Puis utiliser la fonction ColorIndex()