This macro allows you to get a color code, you can modify it to your convenience:
Dim Lign As Integer
For Lign = 1 To 12
Worksheets(1).Range("C" & Lign).Value = Worksheets(1).Range("B" & Lign).Interior.Color
- 'Replace 12 by the number of lines you want to process.
- 'Replace "C" by the column you want to use for the result (color code).
- 'Replace "B" by the column that contains the color to be filtered.