Adapter code VBA pour autre Site

Bonjour,

j'ai trouvé ce code sur le forum

Function RécupSIRET(sNom As String, sAdresse As String)
  Dim JsonRésultat As String, Siret As String
  Dim Résultat() As String, Nb_résultats As Long
  Dim API_Recherche_Entreprises As String
  ' Adresse Web de l'API
  API_Recherche_Entreprises = "LIEN API GOUV.FR"
  ' Aller chercher l'information
  JsonRésultat = Application.WebService(API_Recherche_Entreprises & "?q=" & sNom & " " & sAdresse)
  ' Retravailler le résultat
  JsonRésultat = Replace(JsonRésultat, "{""results"": [", "")
  JsonRésultat = Replace(JsonRésultat, "{", "")
  JsonRésultat = Replace(JsonRésultat, "}", "")
  JsonRésultat = Replace(JsonRésultat, "]", "")
  ' Récupérer le résultat dans un tableau
  Résultat = Split(JsonRésultat, ",")
  ' Nombre de résultat trouvés
  Nb_résultats = Val(Split(Filter(Résultat, "total_results")(0), ":")(1))
  ' Petit message
  If Nb_résultats = 0 Then RécupSIRET = "aucun résultat": Exit Function
  If Nb_résultats > 1 Then RécupSIRET = "plus d'un résultat - recherche non sélective ": Exit Function
  ' Récupérer ce qui nous intéresse dans le résultat JSON
  RécupSIRET = Replace(Split(Filter(Résultat, "siret")(0), ":")(1), Chr(34), "")
End Function

qui fonctionne avec

=Récupsiret(A2;B2 &","&C2&","&D2)

A noter que A=Nom B=Adresse C=code postal et D=Ville
et j'aimerais l'utiliser mais sur un site de meme genre qui utilise API pour augmenter la probabilité de resultat
merci a vous

Bonjour Bob

Qu'est-ce qui n'est pas explicite dans

 API_Recherche_Entreprises = "LIEN API GOUV.FR"

Ou alors, je n'ai pas compris la question

A+