Tous mes copains développeur m'ont dit que ça serait trop compliqué. Je ne suis pas sûr de savoir comment tu as fait mais c'est génial, ça marche.
Compliqué ? 17 lignes de code ...
Sub interro_web()
Dim tableau
lig = Cells(Application.rows.Count, 1).End(xlUp).Row
For i = 2 To lig
DoEvents
URL = "https://cex.io/api/last_price/" & Cells(i, 1) & "/" & Cells(i, 2)
On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then
Cells(i, 3) = Replace(Split(Split(Split(Split(.responseText, "{")(1), "}")(0), ",")(0), ":")(1), """", "")
End If
End With
Next
Cells(1, 2) = Now
End Sub