Extractioin données texte

'
'Ajouter une référence à Microsoft Word xx.x Object Library
' (Outils, Références)
'
Option Explicit
Public Sub CréerWord()
Dim a As Word.Application         'Application Word
Dim d As Word.Document            'Document Word
Dim r As Range                    'Plage source
Dim c As Range                    'Cellule source
    
  'Instancier Word et créer le fichier
  Set a = CreateObject("Word.Application")
  Set d = a.Documents.Add
  With a
    .DisplayAlerts = False
    .Visible = True
    .WindowState = wdWindowStateMaximize
  End With
 
  'Définir la plage des cellules sources
  With Worksheets(1)
    Set r = Union(.Range("A1:A9"), .Range("C5:C9"), .Range("J9:J19"))
  End With
   
  'Ajouter le texte dans le document
  With d.Content
    For Each c In r.Cells
      .Text = .Text & c.Value
    Next c
  End With
  
  Application.WindowState = xlMinimized
    
End Sub