Aide Macro boucle

Bonjour,

J'ai trouvé sur le net un programme pour calculer les distances entre deux adresse à l'aide de google maps.
La macro envoie les requètes de cette façon :

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

Cliquez pour agrandir...

Cette macro fonctionne très bien mais les requêtes envoyées trop rapidement se font bloquer par google :

"status": "OVER_QUERY_LIMIT",

Cliquez pour agrandir...

Est-il possible d'ajouter un "timer" dans la boucle pour faire une requête toute les deux secondes par exemple ?
Je n'y connais rien en programmation alors j’espère qu'une bonne âme pourra m'éclairer.