XL 2019 Recherche infos livres sur bookfinder

Bonjour à tous.
Il y a quelques années, j'avais télécharger une application créée par PierreP56 pour trouver les données de livres basé sur le no ISBN.
Cette appli a fonctionné à merveille jusqu'il y a quelques mois.
Maintenant elle plante lors de la transaction avec le site internet.
Y-a-t-il une mise à jour de ce programme ?
L'entête créée est celle-ci

' ******************************************
' ***** *****
' ***** pierrep56 *****
' ***** http://tatiak.canalblog.com/ *****
' ***** *****
' ******************************************

Public Const AD1 = "https://www.bookfinder.com/search/?author=&title=&lang=en&isbn="
'Public Const AD1 = "https://www.justbooks.fr/search/?author=&title=&lang=en&isbn="
Public Const AD2 = "&new_used=*&destination=fr&currency=EUR&mode=basic&st=sr&ac=qr"
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

**********************************************

Ensuite l'erreur se produit la fonction suivante :
Function HTML(Url As String) As String
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
.Open "GET", Url, False
.send
HTML = .responseText
End With
End Function

A la fin de la fonction, la variable HTML est vide.

Si je prends la variable URL donnée à la fonction et que je la mets dans mon Firefox, l'affichage du bouquin est immédiate et les données sont visibles.
Apparemment le transfert depuis le site Internet ne se fait pas.

Je n'ai malheureusement pas trouvé la solution de ce problème. Est-ce que PierreP56 peut m'aider ?

Merci par avance .
Bonnes salutations.
Cloburk