XL 2016 organigramme en VBA

Bonjour à toutes et à tous, J'ai tenté un code VBA afin de créer automatiquement un organigramme hiérarchique (utilisant SmartArt). Je rencontre une erreur à l'instruction : QNodes(Range("B" & i)).Demote Quelqu'un(e) aurait une idée pour me sortir de cette impasse ? Merci beaucoup