Temps de pause dans une opération

[emmanuel75]

Bonsoir le forum,

j'ai le petit bout de programme suivant:

Sub copie()
.
.
.

IE.Navigate ("http://www.mon site" & k)
IE.Visible = True
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop

SendKeys "^a^c", True
Application.Wait Now() + TimeValue("00:00:01")

MyClose
Application.Wait Now() + TimeValue("00:00:02")

Sheets(("R" & r) + ("C" & n)).Select
Range("A50").Select
SendKeys "^v", True

Application.Wait Now() + TimeValue("00:00:10")
.
.
.
End sub


la macro me copie une série de pages web dans excel dans des feuillets (R1C1...R1C2...) à l'aide de sendkeys "^v" mais la copie met un certain temps à se faire. Dans l'exemple, j'ai utilisé
"Application.Wait Now() + TimeValue("00:00:10")"

pour que la copie se fasse correctement car il y a pas mal d'images et la page web est "lourde"

EXISTE-T-IL UNE AUTRE FONCTION,PLUS EFFICACE QUE CELLE CI-DESSUS, QUI LAISSERAIT LE TEMPS A LA COPIE DE SE FAIRE ??? OU UNE BOUCLE QUI SE TERMINERAIT LORSQUE LA COPIE EST FINIE ???

MERCI AUX COURAGEUX...