En supposant que ce sont des champs de formulaire existants et les tables sont dans le corps du document et non dans des boîtes de texte:
Code:
Sub Example()
Dim bProtected As Boolean
If Not ActiveDocument.ProtectionType = wdNoProtection Then
bProtected = True
ActiveDocument.Unprotect Password:=""
End If
If ActiveDocument.FormFields("CheckBox211").CheckBox.Value = True Then
ActiveDocument.Tables(2).Rows(2).Range.Font.Hidden = False
Else
ActiveDocument.Tables(2).Rows(2).Range.Font.Hidden = True
End If
If bProtected = True Then
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, _
NoReset:=True, _
Password:=""
End If
lbl_Exit:
Exit Sub
End Sub