How to "copy-past" quote expression in a function?

I tried with functions, but know it takes 8 to 10 times more times to run…
I am going back to my old code.

It seems there is no solution

Thank you for your help.