Set xmlComponent = CreateObject("Microsoft.XMLDOM")
xmlComponent.loadxml (varInputData)
Set root = xmlComponent.documentelement
For Each child In root.childNodes
If child.basename = "blabla" And child.Attributes.Item(0).Text <> "Blabla" And child.Attributes.Item(0).Text <> "Blablaaa" Then
numOfComp = numOfComp + 1
root.removechild (child)
End If
Next
Hop c'est un extrait trie et "anonyme" de ce que j'ai fait pour te donner quelques exemple de manipulations, par contre fait pas trop gaffe j'ai virer des lignes donc ca n'a pas beaucoup de sens algorithmiquement parlant :o)
J'espere que ca pourra t'aider...
. .
\_/