bonsoir
voici 2 solutions :
lance cette macro pour obtenir les N° des 57 couleurs de la commande ColorIndex
Sub Couleurs()
For a = 0 To 56
Cells(a + 1, 1).Interior.ColorIndex = a
Cells(a + 1, 2) = a
Next a
End Sub
sinon, selectionne une cellule, choisis la couleur de fond et lance la macro pour obtenir son N° de Color (commande différente de ColorIndex)
Sub test()
ActiveCell = ActiveCell.Interior.Color
End Sub