Word 2016 : TextBox obligatoire si OptionBouton sélectionné

TextBox1.Enabled = True

Sub contrôle_remplissage()
    Dim champ As Field
    Dim ctrl As Object
    Dim boutons_option As New Collection
    Dim zones_texte As New Collection
    Dim listes_déroulantes As New Collection
   
    '// stockage des contrôles ActiveX dans leurs collection respectives
    For Each champ In ActiveDocument.Fields
        Set ctrl = champ.OLEFormat.Object
        If TypeOf ctrl Is MSForms.OptionButton Then boutons_option.Add ctrl, ctrl.Name
        If TypeOf ctrl Is MSForms.TextBox Then zones_texte.Add ctrl, ctrl.Name
        If TypeOf ctrl Is MSForms.ComboBox Then listes_déroulantes.Add ctrl, ctrl.Name
    Next champ
   
    '// contrôle remplissage zones de texte et listes déroulantes
    If boutons_option("OptionButton1") = True And zones_texte("TextBox1") = Empty Then MsgBox "Veuillez remplir la zone xx ": Exit Sub