Message d'erreur

Function DownloadXML(nomFilmRechercher As String)
Dim oXMLHTTP As MSXML2.XMLHTTP
Dim oXML As MSXML2.DOMDocument
Dim oNode As MSXML2.IXMLDOMNode
Set oXMLHTTP = New MSXML2.XMLHTTP
oXMLHTTP.Open "POST", "http://www.dvdfr.com/api/search.php?title=" & "'" & nomFilmRechercher & "'", False
oXMLHTTP.send
If oXMLHTTP.Status = 200 Then
   Set oXML = oXMLHTTP.responseXML
   If oXML.parseError.ErrorCode = 0 Then
        For Each oNode In oXML.SelectNodes("dvds/dvd/id")
      tableauID(i) = oNode.Text
        i = i + 1
        Next
        For Each oNode In oXML.SelectNodes("dvds/dvd/titres/fr")
        UsF_Recherche.ListBox1.AddItem oNode.Text
        Next
        UsF_Recherche.Show
   End If
End If
End Function