Dim oNode As Node For Each oNode In TreeView1.Nodes(1).Children ' pas sûr du .Children MsgBox oNode.Text Next
Dim oNode As Node Dim oParent As Node Dim r As Long Set oParent = TreeView1.Nodes(1) Set oNode = oParent.Child ' 1er MsgBox oNode.Text For r = 2 To oParent.Children Set oNode = oNode.Next ' suivant MsgBox oNode.Text Next r