J'ai relevé un léger problème lorsque la distance atteint les mille kilomètres, la fonction ne retourne que 1.
Pour cela, il suffit de convertir en double les données récupérées :
Module 1 :
=> à la fin du code :
Distance = CDbl(Replace(Distance, ",", ""))