Bonjour Pascal,
dans le fichier exemple la langue de départ et d'arrivée est indiqué par un code dans la cellule G1 (#en/fr/ = anglais/français). On peut bien sûr changer les langues avec le code de la langue requise (de pour l'allemand - es pour l'espagnol, pt pour le portuguais, etc.).
Au lieu d'entrer les langues dans une cellule du fichier on peut écrire directement dans le code, en modifiant la ligne:
Trans = Range("G1").Value
avec
Trans = "#en/fr/"
Si on ne veut pas de traduction inverse on doit changer dans le code VBA
checkBack = False '<<< traduction inverse True /False
La colonne contenant le texte à traduire, la colonne où écrire la phrase traduite et la colonne avec la traduction inverse sont indiquées dans le code VBA par le numéro progressif (1 = Colonne A, 2 = Colonne B et ainsi de suite). On peut
adapter les trois colonnes en changeant le numéro correspondant dans le ligne suivantes. Si, par exemple, la phrase est dans la colonne E (5ème colonne) il faut remplacer dans le code la valeur 1 avec 5
LastA = Cells(Rows.Count, 1).End(xlUp).Row '1ère colonne avec la phrase originale
If Cells(I, 1) <> "" Then '1ère colonne avec la phrase originale
.Navigate "https://translate.google.fr/" & Trans & Cells(I, 1).Value '1ère colonne avec la phrase originale
Cells(I, 2).Value = .Document.all("result_box").innertext '2ème Colonne avec la phrase traduite
.Navigate "https://translate.google.fr/" & snarT & Cells(I, 2).Value '2ème Colonne avec la phrase traduite
Cells(I, 3).Value = .Document.all("result_box").innertext '3ème Colonne avec la traduction inverse
J'espère que mon explication est suffisamment claire.