Salut ,
je peux te proposer une moitié de solution :
je pars du principe que tu as une colonne avec des valeurs dedans et que
chaque case est coloriée .
le but etant de classer cette colonne en fonction de la couleur .
-> tu utilises un tableau pour rentrer sur une ligne :
la valeur et le numero associé à la couleur
-> ainsi tu as un tableau ou il ne sagit plus de trier des couleurs mais des numeros .
....
dans mon exemple tu tests sur la colonne A1:A10 qui comporte des valeurs et qui sont des cellules colorées .
B1:C10 c'est pour visualiser le tableau a trier
Dim Tab1
Tab1 = Range("B1:C10")
Dim counter As Integer
For counter = 1 To 10
Tab1(counter, 1) = Worksheets("feuil1").Cells(counter, 1).Value
Tab1(counter, 2) = Worksheets("feuil1").Cells(counter, 1).Interior.ColorIndex
Next counter
Range("B1:C10") = Tab1
peut etre ca peut t'aider ...
voila
A+