Sub Main()
Const wdFormatText = 2
Const wdFormatPlainText = 22
Dim oWdApp As Object
Dim oWdDoc As Object
'Créer une instance Word
Set oWdApp = CreateObject("Word.Application")
'Créer un nouveau document Word
Set oWdDoc = oWdApp.Documents.Add
'Copier les cellules Excel
ActiveSheet.Range("A1:I63").Copy
'Coller dans Word au format "texte brut sans mise en forme"
oWdApp.Selection.PasteAndFormat wdFormatPlainText
'Enregistrer le document Word au format "texte brut"
oWdDoc.SaveAs "C:EQUIPE\Hélène\Nouveau dossierMonDocument1.txt", wdFormatText
'Annuler le mode Copier
Application.CutCopyMode = False
'Rendre le document Word visible
oWdApp.Visible = True
End Sub