J'ai trouvé ceci :
Sub GoogTranslate()
' Microsoft HTML Object et Microsoft Internet Control de cochés
Dim IE As Object, Trans As String, snarT As String
Dim I As Long, LastA As Long, checkBack As Boolean
Trans = Range("G1").Value
checkBack = True '<<< traduction inverse True /False
'
snarT = "#" & Mid(Trans, 5, 3) & Mid(Trans, 2, 3)
Set IE = CreateObject("InternetExplorer.Application")
LastA = Cells(Rows.Count, 1).End(xlUp).Row
For I = 2 To LastA
If Cells(I, 1) <> "" Then
With IE
.Visible = True
.Navigate "
https://translate.google.fr/" & Trans & Cells(I, 1).Value
Application.Wait (Now + TimeValue("0:00:01"))
Do While .Busy: DoEvents: Loop
Do While .readyState <> 4: DoEvents: Loop
.Cells(I, 2).Value = .Document.all("result_box").innerHTML ' Copie le contenu de la boîte
If checkBack Then
.Navigate "
https://translate.google.fr/" & snarT & Cells(I, 2).Value
Application.Wait (Now + TimeValue("0:00:01"))
Do While .Busy: DoEvents: Loop
Do While .readyState <> 4: DoEvents: Loop
Cells(I, 3).Value = .Document.all("result_box").innerText
End If
End With
End If
Next I
IE.Quit
Set IE = Nothing
End Sub
Mais cela bug ici : .Cells(I, 2).Value = .Document.all("result_box").innerHTML
J'ai regardé dans les préférence de la page VBA, tout me semble y être :