Bonsoir
Une autre approche (pas les mêmes résultats)
Doit être perfectible car si beaucoup de données elle doit ramer
Option Explicit
Sub Colorise()
Dim J As Long
Dim Couleur
Dim Num As Integer
Application.ScreenUpdating = False
Columns(1).Interior.ColorIndex = xlNone
Couleur = Array(3, 5, 7, 9, 11, 4, 6, 8, 10, 12, 13, 15, 17, 14, 16, 18, 19, 21, 23, 25, 20, 22, 24, 26, 27, 29, 31)
For J = 1 To Range("A" & Rows.Count).End(xlUp).Row
Num = Application.CountIf(Columns(1), Range("A" & J))
If Num > 1 And Num <= UBound(Couleur) Then
Range("A" & J).Interior.ColorIndex = Couleur(Num - 2)
End If
Next J
End Sub
Ceci m'inquiète
caro1970 a écrit :
étant donné que la liste est gigantesque,