Transférer un Node d'un arbre vers un autre

J'avoue que je sèche sur un problème depuis ce matin :
Je travaille avec deux arbres XML. Il faut passer un des noeuds du premier arbre et l'ajouter dans le second arbre.

Voici mon code

Code:

---

1 2 3 4 5

LO_XmlFO1.Load (ThisWorkbook.Path + "\TMP\Arbre1.xml") Set LO_Node1 = LO_XmlFOn.selectSingleNode("//page") MsgBox "avant " & LO_Noden.childNodes.Length Set LO_Node = LO_Noden.appendChild(LO_Node1) MsgBox "après " & LO_Noden.childNodes.Length

---

Les variables Lo_Node1 et LO_Noden sont valides (pas égales à nothing)
Dans LO_Node je récupère bien une valeur après l'ordre AppendChild
Malgré cela les deux messages MsgBox me retournent la même valeur : 1

Si quelqu'un a une idée je prends.