Function PosHier(ByVal Dequi, Parmi As Range)
Dim n&, pos&
Do
On Error Resume Next: n = Application.Match(Dequi, Parmi.Columns(1), 0)
Dequi = Parmi.Columns(2).Cells(n, 1): On Error GoTo 0
If IsError(n) Then PosHier = pos: Exit Function
If Dequi = "" Then PosHier = pos: Exit Function
pos = pos + 1
Loop
End Function