VBA-erreur 1004 'Refresh Background query

Bonjour tout le monde,

J'ai un souci sur un fichier de calcul de distances entre villes via Google Maps.
Au bout d'un certain nombre de distances, le fichier bug:
Erreur 1004
Fichier inaccessible. Essayez l'une des opérations suivantes:
- vérifier que le dossier spécifié existe
- vérifier que le dossier dans lequel se trouve le fichier n'est pas en lecture seule
- vérifier que le nom du fichier ne comporte les caractères suivants: <> ? ni *

et ça surligne dans le code:
Code:
.Refresh BackgroundQuery:=False


Voici à quoi ressemble la macro:

Code Visual Basic :
Sub Test()
For Each X In Sheets("Feuil1").Range("A2:" & Sheets("Feuil1").Range("A65536").End(xlUp).Address)
Sheets("Feuil2").Cells.Clear
Depart = X.Value
Arrivee = X.Offset(0, 1).Value
With Sheets("Feuil2").QueryTables.Add(Connection:="URL;http://maps.google.com/maps/api/directions/json?origin=" & Depart & "&destination=" & Arrivee & "&sensor=false", Destination:=Sheets("Feuil2").Range("A22"))
.Name = "itinéraire"
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With

X.Offset(0, 2) = Sheets("Feuil2").Cells(2 ^ 16, 1).End(xlUp).Offset(-23, 0).Value

Next
End Sub

Qu'en pensez-vous?

Merci par avance pour vos réponses!