Tableau excel dans word probleme dimension

Bonjour à tous,

je suis en stage actuellement et on m'as demandé de faire une macro qi sélectionne des données fait des calculs avec et les colle dans word

mon probleme est que j ai de nombreux tableau à rentrer et je n'arrive à mettre à la bonne échelle qu'un seul tableau.

si vous pouviez m'aider dans mon script, le voici:
(je ne met que le collage pour ne rien embrouiller)

    For i = 1 To counter

       'selection de la bonne feuille
 
        Windows("doctest2").Activate
        ActiveWorkbook.Worksheets("Pression" & i).Select

        'selection du bon range
        Range("A1", Range("C3").End(xlDown)).Copy

        'collage dans word
        objWord.Selection.Paste

        'redimension du tableau
        objWord.Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
        Docu.Tables(1).Select
        Selection.Style.Font.Size = 10

        'permet d'aller apres le tableau et de faire un saut de page
        objWord.Selection.WholeStory
        objWord.Selection.MoveRight , Extend:=0
        objWord.Selection.InsertBreak (7)
        Application.CutCopyMode = False


    Next
    

voila si vous pouvez m'aider parceque ça fait deux bonnes journées que je reste bloqué dessus et que je ne trouve pas la solution