Function BornInf(Plage, Ref)
Mini = Application.WorksheetFunction.Max(Plage)
For i = 1 To Plage.Rows.Count
If Left(Plage(i, 1), 1) = Left(Ref, 1) Then
If Plage(i, 6) = Val(Right(Ref, 1)) Then
If Plage(i, 2) < Mini Then Mini = Plage(i, 2)
End If
End If
Next
BornInf = Mini
End Function