récupérer données web dans une cellule excel

Bonjour,

Je bute sur le code ci-dessous, je cherche à récupérer les données météo de ce site dans une cellule excel:

Metar value = EBBR

exemple: "EBBR 031720Z 14013KT 9999 -RA FEW015 06/05 Q0993 TEMPO 4000 RA"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = Range("METAR").Row and_ Target.Column = Range("METAR").Column Then Dim IE As New InternetExplorer 'IE.Visible = True IE.Navigate "https://www.aviationweather.gov/metar/data?ids=" & Range("METAR").Value Do DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE Dim Doc As HTMLDocument Setdoc = IE.document Dim sCODE As String sCODE = Trim(Doc.getElementsByTagName("code").innerText) IE.Quit Dim aCODE As Variant aCODE = Split(sCODE, ",") Range("RESULTS").Value = aCODE End If End Sub

---

Par avance merci, si vous avez un code plus simple je suis preneur aussi.