Prob. Creation dynamique de noeuds fils

J'ai un fichier xml qui contient des tableaux et leurs nom et chaque tableau peut avoir des fils, par exemple:
<tables>
<table id="Facture" idpere="">
<nom>FACTURE</nom>
<table id="FACT222" idpere="Facture">
<nom>FACT222</nom>
<table>
<nom>WW</nom>
</table>
</table>
<table id="FACT333" idpere="Facture">
<nom>FACT333</nom>
</table>
</table>
<table id="Ligne Ticket" idpere="">
<nom>LT</nom>
<table id="LT2" idpere="Ligne Ticket">
<nom>LT2</nom>
</table>
</table>
<table>
<nom>TICKET</nom>
</table>
</tables>
J'ai fais un code mais qui marche avec seulement un pere et son fils
Dim tab As XmlElement = doc.CreateElement("table")
Dim nom As XmlElement = doc.CreateElement("name")
nom.InnerText = s.nom
tab.AppendChild(nom)
s.get_tables_fils(s.nom)
n = s.list_tables_fils
nl = n.Count
If nl <> 0 Then
Dim i As Integer
For i = 0 To nl - 1
Dim tabfils As XmlElement = doc.CreateElement("table")
Dim nomfils As XmlElement = doc.CreateElement("name")
nomfils.InnerText = n.Item(i).ToString
tabfils.AppendChild(nomfils)
tab.AppendChild(tabfils)
Next
End If
el.AppendChild(tab)
Alors si quelqu'un peut m'aider à trouver la solution qui me permet de charger tout les tableaux fils meme des tableaux fils(j'ai pensé à faire une fonction recursive mais elle parait impossible)
Merci à vous

je comprend pas bien ton problème
mais je te file comme même un code que j'ai utilisé dans mon application :

Dim doc As New XmlDocument
doc.Load(My.Application.Info.DirectoryPath & "\fichier.xml")
'selectionne le noeud parent de l'élément à ajouter
Dim root As XmlNode = doc.SelectSingleNode("/PersStage")

'création du nouvel élément
Dim Pers As XmlElement = doc.CreateElement("Personnel")

'******************InfoPers**************

'creation des elements child
Dim nom As XmlElement = doc.CreateElement("Nom")
Dim prenom As XmlElement = doc.CreateElement("Prenom")
Dim service As XmlElement = doc.CreateElement("Service")

'on lui assigne une valeur
nom.InnerText = n
prenom.InnerText = p
service.InnerText = s

'on ajoute les elements child à l'element parent
Pers.AppendChild(nom)
Pers.AppendChild(prenom)
Pers.AppendChild(service)

'************************InfoStg******************

For Each r In ds.Tables("InfoStages").Rows

Dim Stg As XmlElement = doc.CreateElement("Stages")

'creation des elements child
Dim stage As XmlElement = doc.CreateElement("Stage")
Dim type As XmlElement = doc.CreateElement("type")
Dim datestg As XmlElement = doc.CreateElement("DateDuStage")

'on lui assigne une valeur
stage.InnerText = r(0)
type.InnerText = r(1)
datestg.InnerText = r(2)


'on ajoute les elements child à l'element parent
Stg.AppendChild(stage)
Stg.AppendChild(type)
Stg.AppendChild(datestg)

'puis on l'ajoute au noeud parent
Pers.AppendChild(Stg)

Next

root.AppendChild(Pers)

'on sauvegarde
doc.Save(My.Application.Info.DirectoryPath & "\SupPersonnel.xml")
doc = Nothing
End If

je t'explique un peu mon code:
j'enregistre dans un fichier:fichier.xml ,le personnel ainsi que leurs stages
le fichier final et du genre:

<PersStage>
<Personnel>
<nom>aaaa</nom>
<prenom>bbbb</prenom>
<service>cccc</service>
<stages>
<Stage>aaaa</Stage>
<type>bbbb</type>
<DateDuStage>cccc</DateDuStage>
</stages>
</Personnel>
</PersStage>