VBA word Excel

bonjour a vous tous je viens poster car je n'arrive pas a effacer les données de mon fichier word qui et rempli avec cette sub sous excel :

Sub feuillerécup()

Dim wrdApp As Object

Dim wrdDoc As Object

Set wrdApp = CreateObject("Word.Application")

Set wrdDoc = wrdApp.Documents.Open("C:\Users\pourcel\Desktop\Document des récupérations.docx")

wrdApp.ShowMe ' pour afficher le document

wrdApp.Visible = True

With wrdDoc

wrdDoc.Bookmarks("NOM").Range.Text = Me.TextBox1.Value

wrdDoc.Bookmarks("PRENOM").Range.Text = Me.TextBox2.Value

wrdDoc.Bookmarks("DATE1").Range.Text = Me.TextBox3.Value

wrdDoc.Bookmarks("DATE2").Range.Text = Me.TextBox7.Value

wrdDoc.Bookmarks("JOUR").Range.Text = Me.TextBox4.Value

wrdDoc.Bookmarks("HEURES").Range.Text = Me.TextBox5.Value

wrdDoc.Bookmarks("NOW").Range.Text = Me.TextBox6.Value

.Protect wdAllowOnlyFormFields, True

End With

' pour sauvegarder le doc avec un nom spécifique, cela evite de modifier le modele.

wrdDoc.SaveAs ("C:\Users\pourcel\Desktop\Document des récupérations.docx")

End Sub

merci de votre aide .

cordialement roms