Function DPP(article, debut)
temp = 999999
For s = debut To Sheets.Count
p = Application.Match(article, Sheets(s).[A:A], 0)
If Not IsError(p) Then
If Sheets(s).Cells(p, 4) < temp Then temp = Sheets(s).Cells(p, 4)
End If
Next s
If temp <> 999999 Then DPP = temp Else DPP = "Inconnu"
End Function