Voici le code à affecter à la liste déroulante :

Private Sub ComboBox1_DropButtonClick()
If ComboBox1.ListCount = 0 Then
With ComboBox1
.AddItem "texte 1"
.AddItem "texte 2"
.AddItem "texte 3"
End With
End If
End Sub

Sub maliste()
With ActiveDocument.ContentControls(1)
      .DropdownListEntries.Add "item1"
      .DropdownListEntries.Add "item2"
      .DropdownListEntries.Add "item3"
End With
End Sub
 

Et voici un code plus élaboré, surtout si les listes sont longues :

Sub maliste()
listes_item = "Item1,Item2,Item3,Item4,Item5,Item6"
With ActiveDocument.ContentControls(1)
      For i = 0 To UBound(Split(listes_pays, ","))
        .DropdownListEntries.Add Split(listes_pays, ",")(i)
      Next
End With
End Sub
 

 Voyez dans cet article les différentes méthodes pour faire référence aux contrôles de contenu.