Sub GetCoinValue()
     Dim T$, SP$(), colonnes, E$
    colonnes = Array("MarketName", "High", "Low", "Volume", "Last", "BaseVolume", "TimeStamp", "Bid", "Ask", "OpenBuyOrders", "OpenSellOrders", "PrevDay", "Created")    'les entetes
    ActiveSheet.UsedRange.Clear
    With CreateObject("MSXML2.XMLHttp")
        .Open "GET", "https://bittrex.com/api/v1.1/public/getmarketsummaries", False
        .setRequestHeader "DNT", "1"
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64)"
        On Error Resume Next
        .send
        On Error GoTo 0
        If .Status = 200 Then T = .responseText Else Beep: Exit Sub
    End With
    'on coupe le debut
    T = Split(T, "[")(1)
    'on vire les retours chariot
    T = Replace(T, Chr(10), "")
    'on remplace les guillemets et crochet droite
    T = Replace(T, "},", "")
    T = Replace(T, "}", "")
    T = Replace(T, "],", "")
    SP = Split(E & "{" & T, "{")
    ' on enleve les autres intitulées de colonnes dans les données
    For i = 0 To UBound(colonnes)
    T = Replace(T, "BaseVolume:", "")
    T = Replace(T, """", "")
    T = Replace(T, colonnes(i) & ":", "")
    Next
    'on pose le tableau
    SP = Split(E & "{" & T, "{")
    With [A1].Resize(UBound(SP) + 1)
             .Value = Application.Transpose(SP)
             .TextToColumns Comma:=True
    End With
End Sub