Fonction recherhant la valeur minimun dans une plage de donnée a rechercher.

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