'Instance des objet pour travailler sur le XML
Dim XmlDoc As New XmlDocument()
Dim Navigator As XPathNavigator
Dim Nodes As XPathNodeIterator
'Chargement
XmlDoc.Load("monFichier.xml")
Navigator = XmlDoc.CreateNavigator()
_ExpXPath = "//type[@attribut='" & unAttribut & "']"
Nodes = Navigator.[Select](Navigator.Compile(_ExpXPath))
'On se positionne sur le premier noeud
Nodes.MoveNext()
'On le supprime
Nodes.Current.DeleteSelf()
'On créer un nouveau noeud avec un nouvel attribut
Nodes.Current.InsertAfter(Nodes.MoveNext)
Nodes.Current.MoveToNext(XPathNodeType.Element)
Nodes.Current.CreateAttribute("", "attribut", "", nouvelleValeur)
Partager