Sub Test()
Dim xmlDoc As DOMDocument
Dim root As IXMLDOMElement
Set xmlDoc = New DOMDocument
xmlDoc.async = False
xmlDoc.Load ThisWorkbook.Path & "\leFichier.xml"
Set root = xmlDoc.documentElement
Cells(1, 1) = root.BaseName
j = 1
BrowseChildNodes root
j = 0
End Sub
Private Sub BrowseChildNodes(root_node As IXMLDOMNode)
Dim i As Long
For i = 0 To root_node.childNodes.Length - 1
If root_node.childNodes.Item(i).nodeType <> 3 Then
j = j + 1
Cells(j, 1) = root_node.childNodes.Item(i).BaseName & "/" & _
root_node.childNodes.Item(i).Text
End If
BrowseChildNodes root_node.childNodes(i)
Next
End Sub