Lancer une appli WEB avec Excel VBA

Bonjour,

J'ai une macro qui va écrire dans une appli WEB.

Cette macro fonctionnait bien avec IE mais maintenant je suis sur Edge.

Voici l'instruction : Dim IE As SHDocVw.InternetExplorer

Et voilà le code pour lancer :

'on recherche toutes les pages web ouvertes
For Each IE In WebCtrls
T = IE.LocationURL
T = Left(T, 19)

'on se place dans la fenetre repereadmin
If T = "http://repereadmin/" Then

IE.Visible = True 'affiche la fenetre internet explorer si elle était cachée
IE.Top = True 'met la fenetre internet explorer devant les autres

'on va sur la page pour rechercher un partenaire
IE.Navigate ("http://repereadmin/XRRepereAdminWeb/AdminRecherchePartenaire.do")

'on attend que la page se charge
Do Until IE.ReadyState = READYSTATE_COMPLETE
Loop
Sleep 1000

Par quoi je dois la remplacer ? et le code va t(il fonctionner ?

Merci d'avance de votre aide.

Thierry.