Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim lngIndex As Long
  With CC
    Select Case .Title
      Case "condition"
        For lngIndex = 1 To .DropdownListEntries.Count
          If .DropdownListEntries(lngIndex).Text = .Range.Text Then
            ActiveDocument.SelectContentControlsByTitle("conditionFR").Item(1).Range.Text = .DropdownListEntries(lngIndex).Value
            Exit For
          End If
        Next lngIndex
      'Case and so on.
    End Select
  End With
End Sub