Comment crée plusieurs node root dans un smart art

Bonjours,

je suis en train de générer un smart art en VBA. Mais je n’arrive pas à trouver comment mettre en place plusieurs node root

(voilà se que j'appelle des node root)

Je n'est aucun souci pour générer le premier node root avec se code :

Dim QNodeWC As SmartArtNode
Dim  oShp As SmartArt

Set QNodeWC = oShp.SmartArt.AllNodes.Add

Le souci c'est quand je réutilise se code pour générer un nouveau root sa le place enfant du premier root

Bonjour,

J'ai testé ça :

Sub testsmartart()
Dim layout As SmartArtLayout
  Set layout = Application.SmartArtLayouts(92)
  Set oShp = ActiveWorkbook.ActiveSheet.Shapes.AddSmartArt(layout)
End Sub