Power Query running slow through google search

Hi there, 

I am currently working on creating a new data basis and for that I need some informations for companies (APE code in French). I only can find these informations easily on Google when I'm searching "Company name Code APE". 

It worked for 1 or 2 companies but I need to do it for 5500 companies and it is very slow (it takes a day to have 200 companies and after that Excel is not working anymore...). 

Here is my file : https://www.dropbox.com/s/9ckwasmxcubjwid/BBD%20Ent%20%C3%A0%20classer%20-%20Forum.xlsx?dl=0

Here is my script : 

(URL) as table =>

let
    Source = Web.Page(Web.Contents(URL)),
    Data0 = Source{0}[Data],
    #"En-têtes rétrogradés" = Table.DemoteHeaders(Data0),
    #"Type modifié1" = Table.TransformColumnTypes(#"En-têtes rétrogradés",{{"Column1", type text}, {"Column2", type text}}),
    #"Colonnes renommées" = Table.RenameColumns(#"Type modifié1",{{"Column1", "Intitulé"}, {"Column2", "Informations"}}),
    #"Type modifié" = Table.TransformColumnTypes(#"Colonnes renommées",{{"Raison sociale", type text}, {"SOCIETE AIR FRANCE", type text}})
in
    #"Type modifié"

And I followed the steps from this video : https://www.youtube.com/watch?v=STjBoS1rQuQ

For me the problem is that I'm doin a research with Power Query on Google and it is very long... Any suggestion ? Thanks !

PS : I already did all the steps to speed up PQ