Copie d'un tableau WORD vers une feuille excel

[s.ayme]

Bonjours,

Je voudrais copier un tableau word dans excel. Quand je lance ma macro(voir en dessous) qui ouvre un document word(extension RTF). la ligne qui copie mon tableau m'indique une erreur (bloc de variable est non définie).
Pouvez m'aidez à corriger cette erreur?
merci d'avance

Sub copy_table_word_excel()

Dim appWd As Word.Application
Dim Wb As Word.Document
Dim Chemin As String
Dim fd As FileDialog
Dim vrtSelectedItem As Variant

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Chemin = vrtSelectedItem
Set appWd = CreateObject("Word.Application")
appWd.Visible = False
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing

Wb.Tables(2).Range.Copy (voici ma ligne d'erreur)
Sheets("TH").Range("A50").Select
ActiveSheet.Paste 'collage des données dans Excel

Wb.Close False
appWd.Quit

End Sub