Macro pour insérer un texte contenu dans cellule excel dans un Word préformaté

Bonjour !

En fait j'ai un outil Excel qui me permet, sous forme de questionnaire, d'avoir des résultats sur une feuille à la fin. Je veux que certains de ces résultats aillentà des endroits précis d'un document word situé dans le même fichier. J'arrive à ouvrir le fichier word avec une macro :

Sub ExtractiontoWord()


Dim wApp As Word.Application
Dim wDoc As Word.Document


Set wApp = CreateObject("word.application")
wApp.Visible = False

y = Workbooks("BCC13.xls").FullName
x = Workbooks("BCC13.xls").Name
lg = Len(x)
Chemin = Mid(y, 1, Len(y) - Len(x))
Set wDoc = wApp.Documents.Open(Chemin + "Test rapport.doc")


????

End Sub


Mais après j'ai essayer de remplir un tableau, un signet, rien ne fonctionne.
Un coup de main ?

Merci d'avance