Remplissage automatique word via macro

Bonjour à tous,

voilà, j'ai aujourd'hui une macro qui me permet de remplir un template outlook en fonction de données contenues dans une page excel.
Je souhaiterai faire la même chose mais cette fois-ci pour remplir un word. Pourriez vous m'aider à faire les modifications nécessaires?

Voici ma macro actuelle

Sub Annexe5()
Dim objOutlook As Object
Dim objOutlookMsg As MailItem
Dim objOutlookRecip As Recipient
Dim objOutlookAttach As Object
' Crée la session Outlook.
Set objOutlook = CreateObject("Outlook.Application")
' Crée le message.
Set objOutlookMsg = objOutlook.CreateItemFromTemplate("S:\annexe 5.oft")
With objOutlookMsg


Set objOutlookRecip = .Recipients.Add(" ")
.Subject = ("INFO DR DOSSIER N°") & "" & (Range("b4"))

'Modification du corps du mail
xxx = Replace(.HTMLBody, "%1", Range("Feuil1!B4"))
.HTMLBody = xxx
xxx = Replace(.HTMLBody, "%2", Range("Feuil1!C4"))
.HTMLBody = xxx
xxx = Replace(.HTMLBody, "%3", Range("Feuil1!q4"))
.HTMLBody = xxx
xxx = Replace(.HTMLBody, "%4", Range("Feuil1!R4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%5", Range("Feuil1!s4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%6", Range("Feuil1!u4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%7", Range("Feuil1!v4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%8", Range("Feuil1!G4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%9", Range("Feuil1!w4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%a", Range("Feuil1!f4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%b", Range("Feuil1!Ab4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%c", Range("Feuil1!Ae4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%d", Range("Feuil1!E4"))
.HTMLBody = xxx

.Importance = 2 'Haute
.Display
End With
Set objOutlook = Nothing
End Sub
D'avance merci