Sub Word()
Dim sPath As String, sNomFic As String
' Définir le chemin source et de destination
sPath = "C:\Documents and Settings\loic\Mes documents\test Publipostage\"
' Créer une instance de word
Set WordApp = CreateObject("word.application")
' Faire la boucle à ce niveau
For i = 2 To 10
Set Worddoc = WordApp.documents.Open(sPath & "test.dot")
WordApp.Visible = False
Worddoc.Bookmarks("date").Range.Text = Sheets("Feuil3").Range("A" & i)
Worddoc.Bookmarks("semaine").Range.Text = Sheets("Feuil3").Range("C" & i)
Worddoc.Bookmarks("format").Range.Text = Sheets("Feuil3").Range("G" & i)
WordApp.Visible = True
' Il faut remplacer les slash par des tirets sinon Word ne comprendras pas
sNomFic = Replace(Sheets("Feuil3").Range("A" & i).Value, "/", "-") & _
Replace(Sheets("Feuil3").Range("G" & i).Value, "/", "-")
' Enregistrer le fichier avec el nom
Worddoc.SaveAs Filename:=sPath & "Test " & sNomFic & ".doc"
Next
End Sub