Vba envoie contenu d'une cellule dans une lettre word

Bonjour à tous je suis débutant en vba et j'essaie d'écrire un code qui me permet à partir d'une base de donnée excel d'ouvrir plusieurs lettre Word identique avec seul un numéro de dossier différent dans chaque lettre ce numéro de dossier se trouve ex. ds la colonne B.

Sub Lettre()

Dim i As Integer, j As Byte

j = Range("R1") ' R1 contient le nombre de cellule non vide ds la Cells (i, 2)

For i = 2 To j ' on dit à quelle numéro i doit s'arrêter

Set WordApp = CreateObject("word.application") 'ouvre une session Word
Set WordDoc = WordApp.Documents.Open("C:\Desktop\Document\Lettre1.doc", ReadOnly:=True) 'ouvre le document Word
WordApp.Visible = False 'Word est masqué pendant l'opération


'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
WordDoc.Bookmarks("Signet" & 2).Range.Text = Cells(i, 2) 'envoie "Bi" vers signet 1


WordApp.Visible = True 'affiche le document Word


Next i 'on dit de passer au prochain i




End Sub