Publipostage En VBA

Sub Publipostage()
Dim CheminModele$, CheminSauvegarde$, R As Range

CheminModele = "c:\MonDossier\Courrier\"
CheminSauvegarde = "c:\Mondossier\Courrier\Client\"
Set R = Cells(ActiveCell.Row, 1).Resize(, 4)
Set WordApp = CreateObject("Word.application")
WordApp.Visible = True
WordApp.Documents.Open Filename:=CheminModele & "Modele Lettre.doc"

For Each X In R.Resize(, 4)
    WordApp.ActiveDocument.Bookmarks(Cells(1, X.Column).Value).Select
    WordApp.Selection.TypeText Text:=Format(X.Value, "@")


'WordApp.ActiveDocument.SaveAs Filename:=CheminSauvegarde & "\" & R.Offset(0, 1) & Format(R.Offset(0, 8), "ddmmyy")



End Sub
[code]

La boucle plante, parceque les colonnes ne se suivent pas, par rapport au signets

dans word je demande Nom,Prénom, CP et Ville
et dans excel nom prénom adresse cp ville

dans cette configuration, il y a seulement les signets nom et prénom qui sont validé aprés la boucle plante

par contre si je retire la colonne adresse, pas de problème tout les signets sont renseignés

et si les données qui m'intéresse commence en colonne J ou autre colonne qu'elle la syntaxe

si vous avez une idée corriger cela, par avance merci

Cordialement,
Manu

edit: Bon j'arrive toujours pas à mettre corectement les balises CODE sorry