Sub SunriseAndSunset()
Dim url$, code$, Res$, TRS
url = "https://www.google.fr/search?ei=8bwRXsD1Ns64lwT_2YCwCg&q=lever=et+coucher+du+soleil+ a l+ile+de+re" '&oq=lever+et+coucher+du+soleil+%C3%A0+l%27+ile+de+re&gs_l=psy-ab.12...46459.61217..63650...0.2..0.382.2146.0j15j0j1......0....1..gws-wiz.......0i71j0i13i30j0i8i13i30j0i8i30.Q6nrMIWq4Kw&ved=0ahUKEwiAssjKouzmAhVO3IUKHf8sAKYQ4dUDCAo#spf=1578221462256"
With CreateObject("microsoft.xmlhttp"): .Open "get", url, False: .send: code = .responsetext: End With
With CreateObject("htmlfile")
.body.innerhtml = code
Sheets(1).[A1] = Split(Split(.body.innertext, "Résultats de recherche")(1), vbCrLf)(0)
Sheets(1).[B1] = Split(Split(.body.innertext, "(Île de Ré)" & vbCrLf)(1), vbCrLf)(0)
'Debug.Print .body.innertext
End With
End Sub