Option Explicit
Sub TraduireTexte()
Dim pnTranslate, pnTranslate_Ref, cnLanguage, Var As String
Dim Wb As Workbook 'Définit une variable qui va représenter un classeur
Dim Ws As Worksheet 'Définit une variable qui va représenter une feuille de calcul
Dim C As Range 'Définit une variable qui va représenter une cellule
pnTranslate = Sheets("traduction").Range("A2:E16")
pnTranslate_Ref = Sheets("traduction").Range("A2:A16")
cnLanguage = Sheets("Langue").Cells(2, 3)
Var = Application.WorksheetFunction.Match(Cells.Value, pnTranslate_Ref, 0)
For Each C In Worksheets("Sommaire").Range("A1:N21")
If C.Value <> "" Then
C.Value = Application.WorksheetFunction.Index(pnTranslate, Var, cnLanguage)
End If
Next
End Sub