Excel Vers Word Plusieurs tableaux a la suite

Bonjour,

Je tente une copie de petits tableaux d'Excel vers Word qui marche très bien, mais ca me réécrit par dessus sur Word a chaque lancement de la macro.

J'ai une plage A1:C10 qui change et j'aimerais ecrire sur Word en sautant une ligne a chaque fois que je lance la macro.
A chaque passage sur .PasteExcelTable False, False, False mon tableau d'avant est effacé et le nouveau est écrit par dessus...
Merci d'avance pour votre soutien

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub ExcelWordPaste()   Dim objWord As Object Dim objDoc As Object   Set objWord = CreateObject("Word.Application") objWord.Visible = True   Range("A1:C10").Copy   Set objDoc = objWord.documents.Add With objDoc.Range .PasteExcelTable False, False, False .Tables(1).AutoFitBehavior 2 'wdAutoFitWindow .InsertAfter vbCr End With End Sub

---

EDIT : J'ai oublié de dire qu'au final ma plage ne sera pas fixe mais du style Range(Cells(1,1),Cells(ligne_variable, col_variable))

Rebonjour,
J'ai trouvé la solution, donc je la donne :

.Range correspond au document Word entier
Pour ecrire à la suite il faut utiliser .Paragraphs.Last.Range quand on utilise l'objet Word Application

EDIT : Par contre .Tables(1).AutoFitBehavior 2 'wdAutoFitWindow me pose toujours problème, si je met autre chose que 1 dans Tables, ca ne fonctionne plus?