Microsoft 365 insertion carte google maps lie a un calcul de trajet dans excel

Sub InsérerCarteTrajet()
    Dim URL As String
    Dim HTML As Object
    Dim ie As Object
    Dim villeDepart As String
    Dim villeArrivee As String

    ' Définir les villes de départ et d'arrivée
    villeDepart = "Paris"
    villeArrivee = "Marseille"

    ' Construire l'URL pour l'API Google Maps Directions
    URL = "https://www.google.com/maps/embed/v1/directions?key=VOTRE_CLE_API&origin=" & villeDepart & "&destination=" & villeArrivee

    ' Créer une instance de Internet Explorer
    Set ie = CreateObject("InternetExplorer.Application")

    ' Ouvrir une fenêtre Internet Explorer invisible
    With ie
        .Visible = False
        .navigate URL
        ' Attendre que la page se charge
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop

        ' Insérer la carte dans une feuille Excel
        Set HTML = .document
        ActiveSheet.Shapes.AddOLEObject ClassType:="Shell.Explorer", Link:=False, DisplayAsIcon:=False, Width:=400, Height:=400, Left:=100, Top:=100
        ActiveSheet.OLEObjects(ActiveSheet.OLEObjects.Count).Object.src = URL

        ' Fermer Internet Explorer
        .Quit
    End With

    ' Libérer les objets
    Set ie = Nothing
    Set HTML = Nothing
End Sub