Sub DSS()
Dim T1, TF, T2, i As Long, dico, w As Long
Set dico = CreateObject("Scripting.Dictionary")
With Worksheets("Feuil2")
T2 = .Range("A1:E" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
With Worksheets("Feuil1")
T1 = .Range("A1:C" & .Range("A" & Rows.Count).End(xlUp).Row)
ReDim TF(1 To UBound(T1, 1))
For i = LBound(T2, 1) To UBound(T2, 1)
dico(T2(i, 1)) = T2(i, 5)
Next
For i = LBound(T1, 1) To UBound(T1, 1)
x = x + 1
If CStr(T1(i, 3)) Like "7062" & "*" Then
TF(x) = dico(T1(i, 1))
End If
Next
.Range("H1").Resize(UBound(TF), 1) = Application.Transpose(TF)
End With
End Sub