Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
  With CC
    Select Case .Title
      Case "condition", "location", "sewerage", "services", "comms"
        FillFrenchCC CC
    End Select
  End With
End Sub

Sub FillFrenchCC(oCC As ContentControl)
Dim lngIndex As Long
  With oCC
    For lngIndex = 1 To .DropdownListEntries.Count
      If .DropdownListEntries(lngIndex).Text = .Range.Text Then
        ActiveDocument.SelectContentControlsByTitle(oCC.Title & "FR").Item(1).Range.Text = .DropdownListEntries(lngIndex).Value
        Exit For
      End If
    Next lngIndex
  End With
End Sub