Signet introuvable dans l'en-tête (Word)

Bonjour à tous !

Voici le code :

********************************************************************
*
********************************************************************
Private Sub CommandButton1_Click()

Application.ActiveDocument.Activate

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader


Selection.GoTo What:=wdGoToBookmark, Name:="dossier"

With CurrentPageHeader.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.TypeText Text:=Intitule_dossier.Text



MsgBox Intitule_dossier.Text

End Sub

**********************************************************************
*
**********************************************************************

L'idée comme vous le comprenez mieux que moi, ayant commencé la prog sur VBA il y a deux heures, est d'envoyer le texte écrit dans la zone texte "Intitule_dossier" jusqu'au signet "dossier"
Or, malgré ma commande pour aller dans l'en-tête du document, le signet est déclaré introuvable.

J'ai vérifié mon code pour un signet dans le document (donc ni en-tête ni pied de page), et il fonctionne parfaitement.

Peu importe le signet, ceux présents dans l'en-tête sont introuvables. Je les ai tous testés et j'ai vérifié la syntaxe, il n'y a pas d'erreur de ce coté.

Merci d'avance de vos réponses et bon week-end à tous !