Bonjour
Une fonction personnalisée qui semble fonctionner https://www.excelformation.fr/traduire-avec-excel.html
Function TRADUIRE(texte As String, origine As String, destination As String)
Dim URL As String
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
End Function