Sub testx()
Dim FichierXML
FichierXML = Application.GetOpenFilename("XML Files (*.xml), *.xml", 1, "ouvrir un fichier XML")
If FichierXML = False Then Exit Sub
Feuil1.Range("A10:P10").Resize(100).ClearContents
' Process XML FILE
Dim XDoc As Object
Set XDoc = CreateObject("MSXML2.DOMDocument")
XDoc.async = False: XDoc.validateOnParse = False
XDoc.Load (FichierXML)
Set eleves = XDoc.DocumentElement.getelementsbytagname("eleve")
' MsgBox eleves.Length
i = 9
For Each elev In eleves
i = i + 1
Cells(i, 1) = i - 9
Cells(i, 2) = "'" & IIf(elev.ChildNodes(13).tagname = "ident", elev.ChildNodes(13).Text, "") 'balise "ident" identifiant
Cells(i, 3) = "'" & IIf(elev.ChildNodes(1).tagname = "nom", elev.ChildNodes(1).Text, "") ' balise "nom"
Cells(i, 4) = "'" & IIf(elev.ChildNodes(2).tagname = "prenom", elev.ChildNodes(2).Text, "") ' balise "prenom"
Next
End Sub