C'est possible à l'aide d'une macro. Soit ld1 le nom du signet de la première liste déroulante et ld2 le nom du signet de la deuxième liste déroulante, voici le code à copier dans ThisDocument et à adapter.

Sub Synchro()
'macro écrite par m@rina
Dim ld2 As ListEntries, ld1 As Byte
Set ld2 = ActiveDocument.FormFields("ld1").DropDown.ListEntries
ld1 = ActiveDocument.FormFields("ld2").DropDown.Value

ld2.Clear
If ld1 = 1 Then

With ld2
.Add Name:="item1"
.Add Name:="item2"
.Add Name:="item3"
End With
ElseIf ld1 = 2 Then
With ld2
.Add Name:="item4"
.Add Name:="item5"
.Add Name:="item6"
End With
ElseIf ld1 = 3 Then
With ld2
.Add Name:="item7"
.Add Name:="item8"
.Add Name:="item9"
End With
End If
End Sub

Une fois la macro insérée, double-cliquez sur la liste déroulante ld1, et sélectionnez cette macro dans la liste déroulante "Exécuter la macro à la sortie."