Function Valbourse(url As String)
Valbourse = "noFound!!"""
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", url, False
.Send
DoEvents
If .Status = 200 Then
HTML = .responsetext
With CreateObject("htmlfile")
.body.innerhtml = HTML
For Each elem In .all
'c-faceplate__price
If elem.classname Like "c-faceplate__price*" Then Valbourse = Format(elem.innertext, "#0,0000"): Exit For
Next...