Option Compare Text Dim tw As MSComctlLib.TreeView Dim Tbl, TMP As Variant, n Private Sub UserForm_Initialize() Tbl = Range("A3:E" & [A65000].End(xlUp).Row).Value pere = Tbl(1, 1) Set tw = Me.MonArbre n = UBound(Tbl) tw.Nodes.Add(, , "NoeudMat" & pere, Tbl(1, 1)).Expanded = True ' Racine arbre Fils pere, 1 Call icon_caption End Sub Sub Fils(parent, niv) ' procédure récursive For I = 2 To n CD = Tbl(I, 2) If CD = parent Then tw.Nodes.Add("NoeudMat" &a