Liste déroulante utilisant base de données excel

Bonjour,

Je tente de nouveau de laisser un message ici, mon précédent message sur modèle de fichier word n'avait pas eu gain de cause...

Je souhaite créer un document qui servira de compte rendu, sur ce document, j'ai les premiers champs : Nom , Prénom , email , avant je les remplissait directement grâce à des champs de "zone de texte" sur le document word, de façon à ce qu'une fois protéger on ne puisse qu'écrire dans les champs définis pour enregistrer sous par la suite.

J'ai vu qu'on pouvait, faire une liste déroulante en utilisant comme source de données un fichier excel qui contient les infos.

J'ai donc un fichier avec 3 colonnes :

Nom
Prénom
Email

qui s'appelle : BDDcontacts.xlsx
Un document word : CR RDV SUIVI.docm

Ces deux documents sont dans un seul et unique dossier sur mon bureau pour l'instant.

J'ai fais ce code dans une macro nommée : MajListbox

Sub MajListbox()
Dim Xl As Excel.Application, Wbk As Excel.Workbook

Set Xl = CreateObject("Excel.Application")
Xl.Visible = False
Set Wbk = Xl.Workbooks.Open("BDDcontacts.xlsx")
ThisDocument.FormFields("Listbox1").DropDown.ListEntries.Clear
With Wbk.Worksheets(1)
For l = 2 To 13
ThisDocument.FormFields("Listbox1").DropDown.ListEntries.Add.Cells(l, "A").Text
Next l
End With
Wbk.Close
Set Xl = Nothing
End Sub


Dans ThisDocument jai fais :
Private Sub Document_Open()
Call MajListbox
End Sub


Et beh même après avoir protégé le fichier, CA MARCHE QUEUDAL :(

Je dois être une bille;

Je sais qu'il y a des sujets un peu comme le mien, mais moi c'est mon code qui me pose problème du coup je vous demande de l'aide.
HELP, après 4h dessus je comprend plus le code hihi.