Sub test()
With Sheets("base")
tabdata = .UsedRange.Value
End With
With Sheets("EXEMPLE")
fin = .Range("P" & .Rows.Count).End(xlUp).Row
For i = 2 To fin
Contenant = .Range("P" & i)
For j = LBound(tabdata, 1) To UBound(tabdata, 1)
If tabdata(j, 2) = Contenant Then
.Range("AS" & i) = tabdata(j, 3)
Exit For
End If
Next j
Next i
End With
End Sub