Ah si, c'est peut-etre ça :
Private Sub TonTreeView_Expand(ByVal node As Node)
'ton code
end sub
exemple (que j'ai copié depuis MSDN) :
<CODE>Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "RP", "Racine Parent")
Set nodX = TreeView1.Nodes.Add("RP", tvwChild, "C1", "Fils1")
Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C2", "Fils2")
Set nodX = TreeView1.Nodes.Add("C2", tvwChild, "C3", " Fils3")
Set nodX = TreeView1.Nodes.Add("C2", tvwChild, "C4", " Fils4")
TreeView1.Style = tvwTreelinesPlusMinusText ' Style 6.
TreeView1.LineStyle = tvwRootLines ' Style 1
End Sub
Private Sub TreeView1_Expand(ByVal Node As Node)
Select Case Node.Key Like "C*"
Case Is = True
MsgBox Node.Text & " est un noeud fils."
End Select
End Sub
</CODE>