Oui j'ai vue qu'il y avait ceci "=Translate(C5;"fr,""en")" mon problème et que je doit reprendre les quatre listes pour les recopier dans du Javascript et sa me redonne ceci "=Translate(C5;"fr,""en")" au lieu d'avoir les noms traduit dans leurs langue respective, je ne sais pas si je me suis bien expliqué. Sinon ton code est super et rapide.
Oui j'ai essayer ceci mes cela et long je ne sais pas pourquoi?
Sub Copier()
Sheets("traduction").Range("A5:G100", Range("A5:G100").End(xlDown)).Copy
Sheets("Feuil1").Range("A1:G100").PasteSpecial Paste:=xlPasteValues
End Sub
Sub Copier()
Sheets("traduction").Range("A5:G100").Copy
Sheets("Feuil1").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub