Inserer des commentaires dans un fichier XML

Sub test()
'On définit xml : c'est lui qui contiendra le document final xml
Dim Xml As New MSXML2.DOMDocument40
'xdoc est l'élément principal : ici le fichier
Dim Xdoc As IXMLDOMElement
 'les différentes 'entrées'
Dim Xheader As IXMLDOMElement, Xconfig As IXMLDOMElement, Xtemp As IXMLDOMElement
'Call Etat_Mlp
'On crée l'élément principal différent pour chaque fichier = en-tête
Set Xdoc = Xml.createElement('test') 'Noeuds)
'On modifie ses attributs : contenus dans la balise
' Petit coup de date pour la maintenace
Dim Comment As IXMLDOMComment
Set Comment = Xml.createComment('This is a comment.')
Dim Aa As IXMLDOMElement
Xdoc.setAttribute 'DATE', Format(Now, 'dd/mm/yyyy hh:mm')
Set Xtemp = Xml.createElement('FICHIER') ' Creation du premier parent
Xtemp.setAttribute 'NOM', 'Test Nom'
   
Set Xconfig = Xtemp
Xdoc.appendChild Xtemp 'Et hop, xtemp est un fils de FICHIER
Set Xtemp = Xml.createElement('VERSION')
Xtemp.Text = 'Test Version'
Xconfig.appendChild Xtemp 'Sous branche de Fichier
Set Xtemp = Xml.createElement('CHEMIN_RESEAU')
Xtemp.Text = 'test rep'
Xconfig.appendChild Xtemp
'Puis on définit l'élément principal de xml comme étant xdoc
Set Xml.documentElement = Xdoc
'Et on enregistre le tout dans un fichier
Xml.save 'C:\\\\Documents and Settings\\\\Datser17\\\\Bureau\\\\test.xml'
End Sub