objet ou variable non défini... blablabla :(

Bonjour,

Encore moi
Je joins 2 fichiers pour que quelqu'un m'aide. J'aimerais que lorsque j'appuis sur le bouton de mon userform( présentement dans le classeur1), que le document word s'affiche en plein écran et qu'il remplisse ses champs via excel. J'ai fais plusieurs tentatives, visité plusieurs forums, et je n'arrive pas à comprendre.

Voici le code

Private Sub CommandButton1_Click()


Dim WordApp As Word.Application
Dim WordDocx As Word.Document

Set WordDocx = WordApp.Documents.Open("Bureau\lettre de presentation 2.docx")
WordApp.Visible = True

With Sheets("Donnée_client")
WordDocx.Civilité.Result.Text = Range("Q2")
WordDocx.expert.Result.Text = Range("R2")
' WordDocx.cause.Result.Text = Range("V2")
' WordDocx.adresse.Result.Text = Range("C2")
' WordDocx.ville.Result.Text = Range("D2")
' WordDocx.date_inter.Result.Text = Range("N2")
' WordDocx.prénom.Result.Text = Range("B2")
' WordDocx.Nom.Result.Text = Range("A2")
' WordDocx.chargé_projet.Result.Text = Range("J2")
' WordDocx.tél_cp.Result.Text = Range("K2")
' WordDocx.poste_cp.Result.Text = Range("W2")


End With
End Sub