Transformer couleur en valeur numérique
Sub distri_couleur()
Dim Lign As Integer
For Lign = 1 To 12
Worksheets(1).Range("C" & Lign).Value = Worksheets(1).Range("B" & Lign).Interior.Color
Next Lign
End Sub'Remplacer le 12 par le nombre de lignes que vous souhaitez traiter.
'Remplacer le "C" par la colonne que vous souhaitez utiliser pour le résultat (code de couleur).
'Remplacer le "B" par la colonne qui contient les couleurs à filtrer.
