Sub ToWords()
'necessite d'activer la reference Microsoft Word xx.x Object Library
Dim docWord As Word.Document
Dim appWord As Word.Application
Set appWord = New Word.Application
appWord.Visible = True
Set docWord = appWord.Documents.Add
Range("A1
78").Copy
appWord.Selection.Paste
docWord.Tables(1).autoFitBehavior wdAutoFitWindow
Application.CutCopyMode = False
End Sub