Bonjour le truite, bonjour emilio,
Sub interroger()
raz True
definition True
End Sub
Sub raz(ok As Boolean)
Range("A1").CurrentRegion.Offset(1, 1).ClearContents
End Sub
Sub definition(ok As Boolean)
Dim tbl() As String, URL$
On Error Resume Next
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Page = ExtraireSourceHTML("https://dicocitations.lemonde.fr/dictionnaire-definitions-littre.php?lettre=" & Left(Cells(i, 1), 1))
URL = Split(Page, "Définition " & Cells(i, 1))(0)
tbl = Split(URL, "<a class=""lv8bk"" href=")
URL = tbl(UBound(tbl))
URL = "https://dicocitations.lemonde.fr" & Split(Split(URL, """")(1), """")(0)
Cells(i, 2) = URL
Page = ExtraireSourceHTML(URL)
Cells(i, 3) = Split(Split(Page, "<br/>Etymologie : ")(1), "<br/>")(0)
Next
End Sub