Macro excel case à cocher pour afficher un texte (word)

Bonjour

Dans le cadre de mon stage, je dois réaliser un fichier excel avec des cases à cocher, quand elles sont cochées laissent apparaitre un paragraphe dans le fichier word.

Pour l’instant j’arrive à le faire en word, c’est à dire la case à cocher est situé dans le document word mais pas en excel :frowning: :frowning: voici mon programme :

Private Sub CheckBox22_Click()

Dim myR As Range
Set myR = ActiveDocument.Range(Start:=ActiveDocument.Bookmarks(“mise1”).Range.Start, End:=ActiveDocument.Bookmarks(“mise2”).Range.End)

If myR.Font.Hidden = True Then
myR.Font.Hidden = False
Debug.Print "Caché"
Else
myR.Font.Hidden = True

Debug.Print "Visible"

End If
Set myR = Nothing

End Sub

Merci pour votre aide