Function PlageCouleur(tableau As Range)
' rouge = 255, vert = 5287936, jaune = 65535, bleu = 15773696, violet = 10498160
For Each c In tableau
If c.Interior.Color = 255 Then rouge = True
If c.Interior.Color = 5287936 Then vert = True
If c.Interior.Color = 65535 Then jaune = True
If c.Interior.Color = 15773696 Then bleu = True
If c.Interior.Color = 10498160 Then violet = True
Next c
If rouge = True And vert = True And jaune = True Then PlageCouleur = True
End Function