Extraction d'une page ENTIERE d'un site web

Bonjour,

J'arrive à extraire les données d'un site internet dans excel mais le problème est que la page n'est pas extraite dans son intégralité.
Je m'explique : le page regroupe les informations d'entreprises (plus ou moins la forme d'une liste). Or je ne récupère les données que pour les 15 premières.
Est-ce dû au temps de chargement de la page? Dans ce cas je ne sais pas vraiment comment faire :/

Voici mon code:

With Sheets("TEMP MILLING").QueryTables.Add(Connection:="URL;https://www.wlw.de/de/firmen/lohnfraesereien?q=Lohnfr%C3%A4sereien&filter%5Bsort%5D=package&q=Lohnfr%C3%A4sereien&utf8=%E2%9C%93&filter%5Bcountry%5D%5B%5D=de&filter%5Bregion%5D=&filter%5Bradius%5D=50&filter%5Blat%5D=&filter%5Blng%5D=&utf8=%E2%9C%93&filter%5Bsupplier_types%5D%5B%5D=service_provider" _
        , Destination:=Sheets("TEMP MILLING").Range("$A$1"))
        .Name = "www.wlw.de"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Merci pour votre aide,

Bonne journée,

(Le site en question est le suivant: https://www.wlw.de/de/firmen/lohnfraesereien?q=Lohnfr%C3%A4sereien&filter=0&utf8=%E2%9C%93