Détecter la couleur d’une cellule dans Excel
// nouveau module :
Function ColorIndex(CellColor As Range)
ColorIndex = CellColor.Interior.ColorIndex
ActiveWorkbook.ForceFullCalculation = True
End Function
// Puis utiliser la fonction ColorIndex()