Autres calcul distance avec google map et vba excel 2007

bonjour
Je cherche a calculer la distance entre 2 villes en france avec Excel 2007.
j'ai trouvé un tuto sur le net

Sub Test()
Sheets("Feuil2").Cells.Clear
Depart = Sheets("Feuil1").Range("B1")
Arrivee = Sheets("Feuil1").Range("B2")
With Sheets("Feuil2").QueryTables.Add(Connection:="URL;http://maps.google.fr/maps?f=d&saddr=" & Depart & "&daddr=" & Arrivee, Destination:=Sheets("Feuil2").Range("A1"))
.Name = "itinéraire"
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With

Set Result = Sheets("Feuil2").Cells.Find("Itinéraire en voiture")
If Result Is Nothing Then
Sheets("Feuil1").Range("A5") = "Itinéraire non trouvé !"
Else
Sheets("Feuil1").Range("A5") = Result.Offset(1, 0)
km = Split(Result.Offset(1, 0), " km")
Sheets("Feuil1").Range("A6") = km(0)
End If

End Sub

probleme sur la feuille 2 il me retourne un probleme avec java (qui est déja activé)
si une ame charitable avait une solution, ou autre formule

objectif entrer, ville départ , ville arrivé , retour nombre de KM, si possible temps
merci a vous
et Bonne Année et surtout Bonne Santé