Listes déroulantes en cascades dépendantes

Bonjour

j'ai récupéré un fichier que j'ai adapté à mes besoins mais je bloque à la dernière étape.

Une personne expérimentée pourrait-elle résoudre ce problème ?

Code:

---

beug : Set CCtrlTgt = ActiveDocument.Bookmarks(StrBkMk).Range.Tables(1).Cell(.RowIndex, .ColumnIndex + 1).Range.ContentControls(1)

---

Bien cordialement.

Je vous joint le fichier. Cordialement.Pièce jointe 618824Pièce jointe 618824