Pause VBA idem point d'arrêt

Do Until IE.ReadyState = READYSTATE_COMPLETE
       DoEvents
    Loop

Sub pause()

Open "c:\pause.vbs" For Output As #1
 
'obligé de laisser une pause pour laisser le temps à la page IE de commencer à ouvrir le fichier
Print #1, "WScript.Sleep (1000)"

Print #1, "Dim objFSO"
Print #1, "OWB = """ & fichier & """"
Print #1, "Set objFSO = CreateObject(""Scripting.FileSystemObject"")"

'boucle en attendant fichier existe
Print #1, "while objFSO.FileExists(OWB) = false"
Print #1, "Wend"

Print #1, "Set xl = CreateObject(""excel.application"")"

'boucle pour vérifier que le fichier a fini de s'ouvrir
Print #1, "While xl.Ready = False"
Print #1, "Wend"
Print #1, "WScript.Sleep (1000)"

'sélectionne le fichier maitre
Print #1, "Dim oShell"
Print #1, "Set oShell = CreateObject(""WScript.Shell"")"
Print #1, "oShell.AppActivate """ & ThisWorkbook.Name & """"
 
 'lancement de la deuxième partie avec raccourci clavier Ctrl+y
Print #1, "WScript.Sleep (1000)"
Print #1, "oShell.SendKeys ""^y"""
Print #1, "Set oShell = Nothing"

Print #1, "wscript.Quit"
Close #1

Sleep 100

Set oWsh = CreateObject("Shell.Application")
oWsh.ShellExecute "c:\dodo.vbs"
Set oWsh = Nothing

Sleep 1000
Kill ("c:\pause.vbs")

End Sub

'Active Microsoft Forms 2.0 Object Library
'Active Microsoft HTML Object Library
'Active Microsoft Internet Controls
Dim WinShell As New ShellWindows
Dim IE As InternetExplorer

'détecte la page IE et sauvegarde le fichier
For Each IE In WinShell
    If IE.LocationURL = "htt...mapage" Then IE.Navigate ("javascript:sauvegarde();")
Next IE