Couleur dans cellules

Bonjour,
J'ai 20 cellules qui peuvent contenir 70 valeurs différentes. Je voudrais
pouvoir colorier de façon identique le fond de mes cellules qui ont la
même valeur. Le format conditionnel est limité à 3 valeurs. J'ai essayé le
code suivant. Mon problème est que je ne peux pas dire ColorIndex = toto
pour pouvoir changer de couleur à chaque groupe de valeurs identiques.

Sub couleur_Origine()
Application.ScreenUpdating = False
toto = 28
For Each cell In Range("origine")
If cell.Value = "" Then
cell.Interior.ColorIndex = xlNone
Else
v1 = cell.Value
For Each celll In Range("origine")
v2 = celll.Value
If v1 = v2 Then
cell.Interior.ColorIndex = toto
celll.Interior.ColorIndex = toto
End If
Next
End If
toto = toto + 10
Next
End Sub

J'espère avoir été claire....
merci
Caroual

Je viens de voir que cela marche. Maintenant il faudrait que je puisse
trouver mes couleurs . en incrémentant toto de 10 cela permet de voir si ca
marche mais le résultat n'est pas toujours top.

Je viens de voir que cela marche. Maintenant il faudrait que je puisse
trouver mes couleurs . en incrémentant toto de 10 cela permet de voir si
ca marche mais le résultat n'est pas toujours top.

Bonsoir,

Sub affichecouleurs()
Worksheets("Feuil1").Activate
For i = 1 To 56
Range("A" & i).Select
ActiveCell.Interior.ColorIndex = i
Next i
End Sub


Te mettra dans Feuil1 de A1 à A56 les couleurs disponibles, le N° de ligne
correspondant à l'index de chaque couleur.

Cordialement,

C'est tip top
Merci