Function MININ(VAL1 As String, VAL2 As String)
Dim Cel_1 As Range, Cel_2 As Range
Application.Volatile
With Workbooks("TB").Worksheets("DATA")
Set Cel_1 = .Columns(1).Find(What:=VAL1, LookIn:=xlValues, LookAt:=xlWhole)
If Cel_1 Is Nothing Then
MININ = VAL1 & " introuvable"
Exit Function
End If
Set Cel_2 = .Columns(1).Find(What:=VAL2, LookIn:=xlValues, LookAt:=xlWhole)
If Cel_2 Is Nothing Then
MININ = VAL2 & " introuvable"
Exit Function
End If
MININ = WorksheetFunction.Min(.Range(Cel_1.Offset(0, 1), Cel_2.Offset(0, 1)))
End With
End Function