Formule minimum positif

[COLOR="DarkSlateGray"][B]Function MINI(ParamArray r())
Dim i As Byte, p As Range, a As Range, c As Range, m As Variant
   Application.Volatile
   m = ""
   For i = LBound(r) To UBound(r)
      Select Case VarType(r(i))
      Case 2 To 7, 14, 17
         If r(i) > 0 Then
            If IsNumeric(m) Then m = WorksheetFunction.Min(m, r(i)) Else m = r(i)
         End If
      Case Is > 8191
         Set p = r(i)
         For Each a In p.Areas
            For Each c In a.Cells
               If IsNumeric(c.Value) Then
                  If c.Value > 0 Then
                     If IsNumeric(m) Then m = WorksheetFunction.Min(m, c.Value) Else m = c.Value
                  End If
               End If
            Next c
         Next a
      End Select
   Next i
   MINI = m
End Function[/B][/COLOR]

[COLOR="DarkSlateGray"][B]=MINI(0.1+0.2;SIN(-1);"";C2:C3;D3:D4;A4;A2;C5:C6;C8;C9;80;"abc")[/B][/COLOR]

[COLOR="DarkSlateGray"][B]=MINI()[/B][/COLOR]