Pfffuuiiiit, on s'évertue à te donner des solutions qui fonctionne et tu reviens avec des trucs à la noix pour lequel faut chaque fois répéter la même chose, ça devient décourageant.
A+
Edit:
Application.Wait (Now + TimeValue("0:00:05"))
dans l'IDE tu double-clic sur Wait et tu tape F1.. L'aide ça sert aussi.