XL 2019 IE.navigate "https://www.google.com/maps"

Bonjour,
J'ai un code qui marchait bien et que ne fonctionne plus depuis quelques temps.
Il semble que ce soit lié à Internet Explorer et/ou à Microsoft Edge qui aurait changé de leur côté?

Le but est de pré-remplir les champs pour Google maps afin qu'il affiche la carte.
Je reçois maintenant le message (voir piece jointe) me demandant d'utiliser Microsoft Edge....mais je suppose qu'avec EDGE b je dois modifier mon code....
Merci de m'aider à trouver le moyen de dépasser ce souci que j'ai dans 2 tableurs qui n'ont rien à voir entre eux.

Voici ce code
Option Explicit

Sub map()
Dim w00 As Integer
Dim w10 As Integer
w00 = Selection.Rows.Count
If w00 > 1 Then
MsgBox ("Attention, une seule ligne doit être sélectionnée. Seule la première sera considérée")
End If
w00 = Range("NB_adh1") + 6

w10 = ActiveCell.Row
If w10 < 7 Or w10 > w00 Then
MsgBox ("Attention, la(es) ligne(s) sélectionnée(s) est(sont) hors du cadre des adhérents")
GoTo finmap
End If

'

'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement



'Chargement d'une page Web Google
IE.navigate "https://www.google.com/maps"

'Affichage de la fenêtre IE
IE.Visible = True

'On attend le chargement complet de la page
WaitIE IE

'On pointe le membre Document
Set IEDoc = IE.document

'On pointe notre Zone de texte
Set InputGoogleZoneTexte = IEDoc.all("q")
'

Dim zontxt As String
Dim zonadr1 As String
Dim zonadr2 As String
Dim zonadr3 As String
Dim zonadr4 As String
Dim zonadr5 As String

zonadr1 = "36"
zonadr2 = "RUE"
zonadr3 = "DU HAUT BARR"
zonadr4 = "67700"
zonadr5 = "SAVERNE"
zontxt = Range(zonadr1) & " " & Range(zonadr2) & " " & Range(zonadr3) & " " & Range(zonadr4) & " " & Range(zonadr5) & " " & "France"

'On définit le texte que l'on souhaite placer à l'intérieur
InputGoogleZoneTexte.Value = zontxt


Set InputGoogleBouton = IEDoc.all("searchbox-searchbutton")
'Simuler un clic
InputGoogleBouton.Click
'searchbox-searchbutton




'On attend la fin de la recherche
WaitIE IE

'On libère les variables
Set IE = Nothing
Set IEDoc = Nothing

'On simule l'appui sur le bouton Entrée
SendKeys "{ENTER}"


SendKeys "{NUMLOCK}"

'
finmap:



End Sub
Sub WaitIE(IE As InternetExplorer)
'On boucle tant que la page n'est pas totalement chargée
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub