[Résolu]Treeview sur Deux niveaux

Private Sub UserForm_Initialize()


Dim cat
Dim sscat
Dim doc
Dim i As Integer
Dim NodX As Node
Dim Lg As Long
Lg = Range("G" & Rows.Count).End(xlUp).Row
With TreeView1
.Nodes.Clear

Set NodX = .Nodes.Add(, , "Root", "Liste des fichiers")
NodX.Expanded = True
Set NodX = Nothing



For i = 1 To Lg
doc = Range("G" & i).Value
sscat = Range("F" & i).Value
cat = Range("E" & i).Value

    If cat <> "" Then
Set NodX = .Nodes.Add("Root", tvwChild, cat, cat)
Set NodX = Nothing


        If sscat <> "" Then
Set NodX = .Nodes.Add(cat, tvwChild, sscat, sscat)
Set NodX = Nothing
Set NodX = .Nodes.Add(sscat, tvwChild, doc, doc)
Set NodX = Nothing


        ElseIf sscat = "" Then
Set NodX = .Nodes.Add(cat, tvwChild, doc, doc)
Set NodX = Nothing


        End If
    ElseIf cat = "" Then
Set NodX = .Nodes.Add("Root", tvwChild, doc, doc)
Set NodX = Nothing


    End If
    
Next i
End With
End Sub