' Si query via l'API Google
If Opt1 Then
' Trouver la ligne de fin de trajet
LigData = LigFinD(ShtS, "A", "legs", True)
' Récupérer la distance et la durée
Distance = Split(ConvDistance(ShtS.Range("A" & LigData + 3)), " ")
'Durée = ConvDurée(ShtS.Range("A" & LigData + 7))
'#####ICI
Durée = Split((ShtS.Range("A" & LigData + 8)), ": ", , vbTextCompare)(1) / 60
.Range("TotalKm").Value = Distance(0)
.Range("TotalDurée").Value = Durée
Else