Hi,

Thank you for answer.

The code that is definitely improved, I was not continually called Redim Preserve ...

I have to make a comparison using two different array before knowing the value *Application.Max(ka)
I hope I do not see how to work find it difficult, now I try to insert and include this cycle.