Bonjour.
La ligne :
.Range("L" & i).Value = Split(Split(Txt, "id=""distanciaRuta"">")(1), "</strong>")(0)
renvoie une erreur 9 lorsque le premier Split ne trouve pas "id=""distanciaRuta"">".
Dans ce cas, le tableau ne contient qu’un seul élément et vous essayez d’accéder au deuxième avec (1) →...