COUNT (or SUM?) colored cells

Hi,
May be with macro from excel4 only working in name define
Define a name "GetColor" with reference to =Get.Cell(63;<cell reference>) : code 63 read the cell color
Create a table in order to read color of each line and column : =GetColor
See attached example file
Hope this helps
Best regards