C'est bon ça fonctionne! merci beaucoup
En revanche je rencontre un problème d'un autre type maintenant.
J'ai voulu rajouter des couleurs : jaune, vert, bleu, rouge, orange, violet mais Excel ne reconnais la commande que pour le rouge et le jaune.
Voici le code:
Function VALCLR()
Application.Volatile
Select Case Application.ThisCell.Interior.Color
Case vbBlue: VALCLR = 2
Case vbYellow: VALCLR = 1
Case vbRed: VALCLR = 3
Case vbGreen: VALCLR = 4
Case vbOrange: VALCLR = 5
Case vbPurple: VALCLR = 6
Case Else: VALCLR = "raté"
End Select
End Function