Option Explicit
Function TRADUIRE(ByVal CelSrc As Range, ByVal Origine As String, ByVal Destination As String)
Dim Texte As String, URL As String, CelAC As Range
Texte = CelSrc.Value
URL = "https://translate.google.com/m?sl=" & Origine & "&tl=" & Destination & " &q=" & WorksheetFunction.EncodeURL(Texte)
URL = LCase(URL)
URL = Replace(URL, "zh-tw", "zh-TW")
Dim HTML As String
HTML = WorksheetFunction.WebService(URL)
Dim baliseDebut As String
baliseDebut = "<div class=""result-container"">"
Dim positionDepart As Integer
positionDepart = InStr(HTML, baliseDebut)
Dim positionFin As Integer
positionFin = InStr(positionDepart, HTML, "</div>")
Texte = Mid(HTML, positionDepart, positionFin - positionDepart)
Texte = Replace(Texte, baliseDebut, "")
Texte = Replace(Texte, "'", "'")
TRADUIRE = Texte
Set CelAC = Application.Caller
ThisWorkbook.Consigne CelAC, CelSrc
End Function