Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim i&, n%
For i = 1 To CC.DropdownListEntries.Count
If CC.DropdownListEntries.Item(i) = CC.Range Then Exit For
Next
On Error Resume Next 'sécurité
For n = 1 To ContentControls.Count
ContentControls(n).Range = ContentControls(n).DropdownListEntries.Item(i)
Next
End Sub