Sub Test()
With Sheet1
basD = .Range("D" & Rows.Count).End(xlUp).Row
basI = .Range("I" & Rows.Count).End(xlUp).Row
For lig = 1 To basI
If .Cells(lig, "I") <> "" Then
malig = Application.Match(.Cells(lig, "I"), .Range("D1:D" & basD), 0)
.Cells(lig, "J") = .Cells(malig, "A")
.Cells(lig, "K") = .Cells(malig, "B")
End If
Next
End With
End Sub