I mean how to crash this numbers to one and color them accordingly ?

Could you please eplain me how to do the same process but only with grid of numbers like this :

23 18 25

24 22 20

19 26 21

Your curly braces do not match.

You are giving both green and blue to 2,5,8, and the earliest that applies is used. Give Blue to 3-6-9.

@Sergey Scorin please make sure you know the rules: https://wolfr.am/READ-1ST

The rules explain how to format your code properly. If you do not format code, it may become corrupted and useless to other members. Please EDIT your post and make sure code blocks start on a new paragraph and look framed and colored like this.

int = Integrate[1/(x^3 - 1), x];
Map[Framed, int, Infinity]

You can also embed notebook or attach notebook.

Nope! I said you it is not easy to me to open the Mathematica and write something there and you suggest me to correct mistakes in something I am afraid of ! ! !

data = FixedPoint[IntegerDigits /* Total, #] & /@ 
  Table[Fibonacci[n], {n, 32}]
(*{1,1,2,3,5,8,4,3,7,1,8,9,8,8,7,6,4,1,5,6,2,8,1,9,1,1,2,3,5,8,4,3}*)

Which[MemberQ[{1, 4, 7}[#, Red], # <= 
   MemberQ[{2, 5, 8}[#, Green], # <= MemberQ[{3, 6, 9}[#, Blue]] & /@ 
     data

I see red and green errors that Mathematica tells me to fix, but I don't know what to replace it with ...

... and I want to put them in a 3 column raw ( or may be 4,5 )

Sergey, you should rather put them in a 24-column table (I find this surprising!):

data = FixedPoint[IntegerDigits /* Total, #] & /@ Table[Fibonacci[n], {n, 240}];
Partition[data, Length[FindRepeat[data]]] // TableForm

Maybe like this:

data = FixedPoint[IntegerDigits /* Total, #] & /@ 
  Table[Fibonacci[n], {n, 32}]
Partition[data, 3] // TableForm