Suppression noeud XML

Bonjour,

J'ai une macro excel en vba qui génère un fichier XML, et une fois généré, je le re-parcours pour filter les balises <printer>

plan d'un XML :

<pagination>
<title>
<printer>
<main/>
</printer>
<printer>
<main>
<page />
<page />
</main>
</printer>
</title>
</pagination>

Ce que je voudrais faire c'est supprimer un noeud <printer> si il ne contient pas de <page>

Voici mon code :

For Each objNode In objDoc.SelectNodes("//printer")
If ("C'est ici que je bloque") Then
objNode.ParentNode.RemoveChild objNode
End If
Next

Avez vous une solution ? Merci d'avance