Erreur 438 sur Copier/Coller tableau Excel vers Word

Bonjour à tous,

J'ai un code qui fonctionnait bien il y quelques jours mais j'ai du faire une bêtise car plus moyen de le faire fonctionner. Il rempli des signets dans Word depuis des données Excel, puis exporte une table depuis Excel vers Word. Le tableau Excel est bien sélectionné et copié mais l'erreur arrive sur la ligne PasteAndFormat.

Quelqu’un aurait une idée du problème ?

    'Définition des variables
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document

    'Définition des objets
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True 'Mettre True pour rendre Word visible
    Set WordDoc = WordApp.Documents.Open(Annexe.Range("C1") & U2_TextBox_Série & ".docx") 'Ouvre le document Word
    'Set WordDoc = WordApp.Documents.Open("C:\Users\Heelflip\Desktop\Test Annexe.docx") 'Ouvre le document Word

    'Remplissage des signets du fichier "Annexe"
    With WordDoc
        .Bookmarks("DN").Range.Text = U2_ComboBox_DN & "/" & U2_TextBox_Rating
        .Bookmarks("Item").Range.Text = U2_TextBox_Item
        .Bookmarks("Série").Range.Text = U2_TextBox_Série

        'Copie de la table Pression/Température
        Ligne = Cells(Application.Rows.Count, 1).End(xlUp).Row
        Range("A1:B" & Ligne).Copy
        .ActiveDocument.Bookmarks("Table").Select
        .Selection.PasteAndFormat wdFormatOriginalFormatting
        .Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
    End With

    Application.CutCopyMode = False

    WordDoc.Save
    WordApp.Quit

Merci ;)

J'ai trouvé mon erreur, C'est WordApp et non WordDoc que je devais utiliser comme objet.

    With WordApp
        .ActiveDocument.Bookmarks("Table").Select
        .Selection.PasteAndFormat wdFormatOriginalFormatting
        .Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
    End With