Bonsoir Sophie
Plusieurs methodes
Si tu travailles à la seconde
Application.Wait Now + TimeValue('00:00:01') ' ici 1 seconde
SI tu veux plus précis
Pause = 0.01 ' Définit la durée. (ici 1/100 sec)
Start = Timer ' Définit le moment de début de pause.
Do While Timer < Start + Pause
DoEvents
Loop
Bonne fin de soirée
Michel