Find a walkaround to avoid those problems : In the firstlines of my code, I write on a dedicate cells the current date. Then I add a condition in the initial code :

If myCurrentWorkbook.Worksheets(mySheet).cells(1,1) = Date then Exit Sub

Works because the second time it opens, date were updated and so it stops the loop !!

Thanks everyone for the help.

Jerry