Sub creerNouveauDocWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWrd As Word.Document
Dim i As Byte
Set appWrd = CreateObject('Word.Application')
appWrd.Visible = True 'mettre false pour garder Word masqué
Set docWrd = appWrd.Documents.Add
With docWrd.Range
.Font.Name = 'Arial'
For i = 1 To 3
.Text = Cells(i, 1) 'transfert données des cellules A1 à A3 dans doc Word
'****************************************
.Collapse Direction:=wdCollapseEnd 'derniere ligne du document
.InsertBreak wdLineBreak 'nouvelle ligne
'*****************************************
Next i
End With
docWrd.SaveAs 'C:\\monDocument.doc'
End Sub