XL 2013 Interaction internet explorer

Sub explorer()
Dim IE As Object
Dim trajet As String
Dim depart As String
Dim arrivee As String

depart = [C2]
arrivee = [D2]
Set IE = CreateObject("InternetExplorer.Application")
trajet = "https://maps.google.fr/maps?f=d&saddr=" & depart & "&daddr=" & arrivee
IE.Visible = True
IE.Navigate trajet
End Sub

Option Explicit
Sub explorer()
Dim IE As Object
Dim trajet As String
Dim depart As String
Dim arrivee As String

depart = [C2]
arrivee = [D2]
Set IE = CreateObject("InternetExplorer.Application")
trajet = "https://fr.mappy.com/itineraire#/1/M2/TItinerary/IFR" & depart & "|TO" & arrivee
IE.Visible = True
IE.Navigate trajet

Set IE = Nothing
End Sub

Option Explicit
Sub explorer()
Dim depart As String
Dim arrivee As String
Dim siteWeb As String

depart = Sheets("Commandes").Range("C2")
arrivee = Sheets("Commandes").Range("D2")

siteWeb = "https://fr.mappy.com/itineraire#/1/M2/TItinerary/IFR" & depart & "|TO" & arrivee

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & siteWeb, _
        Destination:=Range("$A$5"))
        .Name = "results"
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = True
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Delete
    End With

End Sub

Sub google()
Dim cel
Depart = Feuil1.[C2]
Arrivee = Feuil1.[C3]
Application.ScreenUpdating = False


With Feuil2.QueryTables.Add(Connection:="URL;https://www.google.fr/maps/dir/" _
& Depart & Arrivee, destination:=Feuil2.[A1])
.Name = "itinéraire"
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With


Set Result = Feuil2.Cells.Find("Itinéraire en voiture")
If Result Is Nothing Then
  Feuil1.[B6] = "Itinéraire non trouvé !"
Else
Feuil1.[B6] = "Km  -  Temps"
End If
Feuil1.optKms = True

If Feuil1.[B6] = "Itinéraire non trouvé !" Then: Feuil1.[F7:F12].Clear: Feuil1.[E3].Select



On Error Resume Next
For Each cel In Sheets(2).Range("a53:a60")
If cel.Value Like "Itinéraire*" Or cel.Value Like "Ou*" Or cel.Value Like "- plus d'infos*" Or cel.Value Like "Imp*" Or cel.Value Like "Vér*" _
Or cel.Value Like "Don*" Or cel.Value Like "Aff*" Or cel.Value Like "Sig*" Or cel.Value Like "Go*" Or cel.Value Like "Sai*" _
Or cel.Value Like "Dans*" Or cel.Value Like "Auc*" Or cel.Value Like "Rem*" Or cel.Value Like "Ess*" Or cel.Value Like "Ann*" Then
cel.Delete = True
End If
Next cel

Feuil2.[A53:A60].Copy Feuil1.[F7]

For Each cel In Sheets(1).Range("F7:F12")
If cel.Value Like "Itinéraire*" Or cel.Value Like "Ou*" Or cel.Value Like "- plus d'infos*" Or cel.Value Like "Imp*" Or cel.Value Like "Vér*" _
Or cel.Value Like "Don*" Or cel.Value Like "Aff*" Or cel.Value Like "Sig*" Or cel.Value Like "Go*" Or cel.Value Like "Sai*" _
Or cel.Value Like "Dans*" Or cel.Value Like "Auc*" Or cel.Value Like "Rem*" Or cel.Value Like "Ess*" Or cel.Value Like "Ann*" Then
cel.ClearContents
End If
Next cel
End Sub