Contar célula com cor no VBA