Tableau word non reconnu via Tables

Bonjour,

Je dispose d'un fichier word contenant un tableau. J'aimerais transférer ce tableau sur Excel, et j'utilise pour cela une macro dont le code est le suivant:

Sub import_table_a1()
 
    Dim wb As Workbook        
    Dim ws As Worksheet       
    Dim sChemin As String      
    Dim sNomFichier As String  
    Dim WApp As Object, WDoc As Object
    Dim i As Integer, j As Integer
    Dim Cible As Variant
 
    Set wb = ThisWorkbook                       
    Set ws = wb.Sheets(1)                      
    sChemin = ThisWorkbook.Path & "\"           ' le fichier Word se trouvent dans le même répertoire que le fichier Excel
 
    sNomFichier = "test.docx"
 
    Set WApp = CreateObject("Word.Application")
    WApp.Visible = True                      
    Application.ScreenUpdating = False
 
    Set WDoc = WApp.Documents.Open(sChemin & sNomFichier)   'ouvre le document Word

For i = 1 To WDoc.Tables(1).Rows.Count
        For j = 1 To WDoc.Tables(1).Columns.Count
            Cible = WDoc.Tables(1).Columns(j).Cells(i)
 
            ws.Cells(i, j) = _
            Application.WorksheetFunction.Substitute(Cible, vbCr, vbLf)
            ws.Cells(i, j) = _
            Left(ws.Cells(i, j), Len(ws.Cells(i, j)) - 1)
        Next j
    Next i

Application.ScreenUpdating = True
    WApp.Quit
 
End Sub

Le message d'erreur suivant s'affiche: "The Requested member of the collection doesn't exist" à propos de la ligne "For i = 1 To WDoc.Tables(1).Rows.Count", ce qui signifie que la requête n'identifie pas de tableau dans mon document word.

D'où ma question: pourquoi mon tableau sous word n'est-il pas reconnu, et comment faire pour qu'il le soit? Je n'ai pas trouvé de cas similaire au mien en cherchant sur les forums...

Vous trouverez mon document word ici:
https://www.dropbox.com/s/8sbln2bz855o1zs/test.docx?dl=0

Je vous remercie par avance de votre aide!!
Bonne journée,
Laurène