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 "location"
        For lngIndex = 1 To .DropdownListEntries.Count
          If .DropdownListEntries(lngIndex).Text = .Range.Text Then
            ActiveDocument.SelectContentControlsByTitle("locationFR").Item(1).Range.Text = .DropdownListEntries(lngIndex).Value
            Exit For
          End If
        Next lngIndex
      Case "The next one"
    End Select
  End With
End Sub