Liste déroulante word 2010 (liste enchainée)

Bonjour,



je souhaite faire un formulaire avec des listes déroulantes dans word 2010:

-dans la première le collaborateur choisit sa catégorie
-en fonction de la catégorie choisie, il a un choix entre différents véhicules

Donc j'ai 5 catégories et à chacune d'elle correspondent plusieurs véhicules.
j'ai essayé de me dépatouiller mais j'ai un message d'erreur qui me dit "propriété ou méthode non gérée par cet objet".

Merci de votre aide.

ci dessous un exemple pour l'une de mes catégories (je ne connais pas du tout le langage VBA!!! j'ai copié collé un truc et essayé d'arranger à ma sauce...

Sub ListesEnchainees()
Dim Catégorie As String
Catégorie = ActiveDocument.ComboBox1.Result
ActiveDocument.ComboBox2.DropDown.ListEntries.Clear
Select Case Catégorie
Case "CDS"
With ActiveDocument.ComboBox2.DropDown.ListEntries
.Add "308 Business Bluelion 92cv "
.Add "Megane III Business Bose NRJ 110CV"
.Add "308 Business Pack Bluelion 112cv"
.Add "Golf VI Trendline Business 105cv"
.Add "Golf VI Confort Business 105cv"
.Add "308 Break Business 92cv"
.Add "Golf VI Break Trendline Business 105cv"
.Add "Golf VI Break Confort Business 105cv"
.Add "Megane III Break Business Bose NRJ 110CV"
.Add "C3 Picasso Business 90cv"
.Add "Scenic Business NRJ 110cv"
End With
Case "Directeur Régional/COMA"