Option Explicit
Public Sub recherche()
Dim k As Integer
Dim l As Integer
Sheets.Add.Name = "mano"
Windows("DTS.xls").Activate
Sheets(1).Cells.Copy
Windows("Products.xls").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(2).Activate
For l = 1 To Cells(65536, 4).End(xlUp).Row
With Sheets("mano")
For k = 1 To .Cells(65536, 15).End(xlUp).Row
If .Cells(k, 15).Value = Cells(l, 4).Value Then
Cells(l, 2).Value = .Cells(k, 1).Value
End If
Next k
End With
Next l
Application.DisplayAlerts = False
Sheets("mano").Delete
Application.DisplayAlerts = True
End Sub