Fonction pour traduire des texte via DeepL

Bonjour à tous,
J'ai trouvé sur Youtube la fonction de traduction (via Google translat=
e) mise à disposition par Dinesh Kumar Takyar, et qui est ce que je re=
cherchais. ;-)
Toutefois si c'était possible je souhaiterais traduire avec DeepL (qui=
est plus précis dans le jargon de ma société) et vous deman=
de s'il est possible de modifier cette fonction pour qu'elle fonctionne ave=
c ce traducteur.
Je vous remercie d'avance pour votre aide.
Emile

Public Function Translate(strInput As String, strFromSourceLanguage As Stri=
ng, strToTargetLanguage As String) As String
Dim strURL As String
Dim objHTTP As Object
Dim objHTML As Object
Dim objDivs As Object, objDiv As Object
Dim strTranslated As String
' send query to web page via Google:
strURL = "https://translate.google.com/m?hl=" & strFromSourceLangua=
ge & _
"&sl=" & strFromSourceLanguage & _
"&tl=" & strToTargetLanguage & _
"&ie=UTF-8&prev=_m&q=" & strInput
'
' La même chose via Deepl
'https://www.deepl.com/translator#fr/en/ceci%20est%20un%20test
'
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 'late binding
objHTTP.Open "GET", strURL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6=
.0; Windows NT 5.0)"
objHTTP.send ""

' create an html document
Set objHTML = CreateObject("htmlfile")
With objHTML
.Open
.Write objHTTP.responsetext
.Close
End With

'Range("H1") = objHTTP.responsetext
Set objDivs = objHTML.getElementsByTagName("div")
For Each objDiv In objDivs
If objDiv.className = "t0" Then
strTranslated = objDiv.innerText
Translate = strTranslated
End If
Next objDiv
Set objHTML = Nothing
Set objHTTP = Nothing

End Function