Option Explicit
Function AdresseToCoordonnesGPS(URL As String)
    'URL contient la recherche qu'on veut faire par, par exemple : URL="https://www.openstreetmap.org/search?query="&A2
    'où la cellule A2 contient l'adresse du lieu,
    'voici la partie qui lance l'adresse dans le navigateur
    Dim navigateur As Object
    Set navigateur = CreateObject("Shell.Application").ShellExecute("microsoft-edge:" & URL) 'CreateObject("MicrosoftEdge.Application")
    navigateur.Visible = True
    Do While navigateur.busy And navigateur.ReadyState <> 4
       DoEvents
    Loop
    pause (3)
    
    Dim redirection As String 'cette variable contiendra la partie intéressante du lien passé en argument càd les coordonnées gps N,E
    redirection = navigateur.locationUrl
    redirection = Right(redirection, Len(redirection) - InStr(redirection, "#"))    'les coordonnées gps se trouvent à droite du sigle # dans l'url
    redirection = Right(redirection, Len(redirection) - InStr(redirection, "/"))
    AdresseToCoordonnesGPS = redirection
End Function