I am sorry the code comes from a query (and it is in another sub) and
the current date I forgot this "" the problem was the size of my array
because I add more two values (r,7) and (r,8) and forgot to resize it
to Dim var(1 To 1000, 1 To 9) As Variant


Now it is working fine.

Thanks for your answer and observations. I will pay more attention when
I copy my code here.

Ina :)