Copier un tableau Excel vers un Word à l'emplacement du curseur

Bonjour, voici ma problématique : à l'heure actuelle j'ai une macro qui me permet de copier un tableau d'un Excel vers un Word, le nom de ce word est défini dans une cellule de mon excel (dans mon cas le nom du fichier est : test). Pour l'instant le tableau est copié à l'emplacement d'un signet dans word, sauf que j'aimerais copier le tableau à l'emplacement du curseur sur le fichier word car c'est plus adaptable à n'importe quel fichier word.

Voici mon code actuel :

Sub ExportToWord()

Dim LastRow As Long
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim WordTable As Word.Table
Dim r As Long
Dim FileName As Variant
Dim nom_fichier
nom_fichier = Range("B1").Value
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Vulne_Orga").Activate
LastRow = Cells(Rows.Count, 4).End(xlUp).row

fmProgress.LabelProgress.Width = 0
fmProgress.Show
Tab_Progress (0)

Sheets("Vulne_Orga").Range("C5:E" & LastRow).Select
Selection.Copy

'Optimiser le Code'
Application.ScreenUpdating = False
Application.EnableEvents = False

  On Error Resume Next
  Set WordApp = GetObject(, "Word.Application")

  'Annuler le popup erreur automatiquement'
  Err.Clear
  On Error GoTo 0
  If WordApp Is Nothing Then
    Set WordApp = New Word.Application
    Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\" & nom_fichier & ".docx")
  End If

Tab_Progress (0.25)
    'En cas d'échec, si Word non trouvé dans les applications'
  If Err.Number = 429 Then
      MsgBox "Microsoft Word n'a pas été trouvé, échec"
      GoTo EndRoutine
  End If

  On Error GoTo 0

  WordApp.ActiveDocument.Bookmarks("Système_de_Contrôle_accès").Select

  WordApp.Selection.PasteExcelTable True, False, False

Tab_Progress (0.5)

      Dim objTable As Object
      Dim cel As cell
      Dim row As Range
      For Each objTable In WordApp.ActiveDocument.Tables
         objTable.AutoFitBehavior (wdAutoFitContent)
         objTable.PreferredWidthType = wdPreferredWidthPercent
         objTable.PreferredWidth = 100
         On Error Resume Next
         objTable.Rows(1).HeadingFormat = wdToggle
         On Error Resume Next
      Next

'Trouver Word et l'afficher après copie'
  WordApp.Visible = True
  WordApp.Activate
  GoTo EndRoutine

Tab_Progress (0.75)

EndRoutine:
'Optimiser le Code'
  Application.ScreenUpdating = True
  Application.EnableEvents = True

'Effacer le contenu du press-papiers pour gagner en mémoire'
  Application.CutCopyMode = False
Tab_Progress (1)
    Unload fmProgress

End Sub

Bonjour Tuvan,

Un problème de taille, quand dire à Word... c'est bon mon curseur est bien placé tu peux coller le tableau

C'est impossible à moins de créer la macro dans Word et là, ca se complique

@+