Pb NodeCheck dans un TreeView

[Fab]

Bonjour à tous,

j'ai un petit problème pour la gestion de l'evt NodeCheck dans un TreeView.
Mon code ressemble à :

Private Sub UserForm_Activate()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
nodX.Expanded = True
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "P", "Parent")
nodX.Expanded = True
Set nodX = TreeView1.Nodes.Add("P", tvwChild, , "Child 1")
Set nodX = TreeView1.Nodes.Add("P", tvwChild, , "Child 2")
Set nodX = TreeView1.Nodes.Add("P", tvwChild, , "Child 3")
End Sub

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim texte As String
texte = Node.Text
If texte = "Child 3" Then
MsgBox "Interdit!"
Node.Checked = False
Exit Sub
Else
'...
End If
End Sub

En gros, je voudrais décocher un noeud sous certaines conditions quand je clique dessus (qu'il soit déjà coché ou non).
En exécutant pas à pas, le message "Interdit!" apparaît, le noeud "Child 3" se décoche, la ligne "Exit Sub" est exécutée, et lorsque je sors de la procédure "TreeView1_NodeCheck", le noeud "Child 3" se recoche (exactement ce que je ne veux pas!!!!).

Quelqu'un auraît une bouée à me lancer? Help!

Merci

Fab