XL 2021 Nommer un objet Edge pour pouvoir récupérer des infos

[SgTrGt]

Bonjour à tous, me lançant dans l'automatisation sur Excel je rencontre quelques difficultés. Quelqu'un aurait-il une solution

Avant j'avais quelque chose comme ça qui me lançait la page et je pouvais récupérer l'adresse que me renvoyait la page, sauf que IE ne passe plus...

Sub Retour()
url = Feuil1.Range("D3").Text
 Dim Page As Object
    Set Page = CreateObject("InternetExplorer.Application")
    Page.navigate url

J'ai donc chercher et essayé plein de chose mais rien de va

    'Set Page = CreateObject(Shell("explorer microsoft-edge:" & url & ""))

    'Set Page = CreateObject("Shell.Application").ShellExecute("explorer microsoft-edge:" & url & "")

    'set Page = CreateObject(("Shell.Application").ShellExecute "microsoft-edge:")

    CreateObject("Shell.Application").ShellExecute "microsoft-edge:" & url & ""

     Set Page = CreateObject("Shell.Application").ShellExecute "explorer microsoft-edge:" & url & ""

    Set Page = CreateObject("Shell.Application").ShellExecute "microsoft-edge:" & url & ""

J'arrive a le créer mais pas à le nommer.

Si quelqu'un avait un peu de temps à me consacrer... D'avance un grand merci