Sub Copie()
Dim h As Long, T, R(), i As Long, j As Variant
h = [MaListe].Cells([MaListe].Rows.Count + 1, "K").End(xlUp).Row
T = [MaListe].Cells(2, "K").Resize(h, 2) 'matrice, plus rapide
ReDim R(1 To h, 1 To 2) 'tableau à remplir
For i = 1 To h
j = Application.Match(T(i, 1), Evaluate("Code"), 0)
If IsNumeric(j) Then
R(i, 1) = [Description].Cells(j)
R(i, 2) = [Description_2].Cells(j)
End If
Next
[MaListe].Cells(2, "L").Resize(h, 2) = R
End Sub