2e plus petite variable

Public Sub Test()
Dim tabDbl(1 To 5) As Double, i As Long, j As Long, tmpDbl As Double
    
    'mettre les valeurs dans un tableau
     tabDbl(1) = 12.5
    tabDbl(2) = 7.3
    tabDbl(3) = 8.9
    tabDbl(4) = 15.2
    tabDbl(5) = 3.7
    
    'trier les valeurs en ordre croissant
     For i = LBound(tabDbl) To UBound(tabDbl) - 1
        For j = i + 1 To UBound(tabDbl)
            If tabDbl(j) < tabDbl(i) Then
                tmpDbl = tabDbl(j)
                tabDbl(j) = tabDbl(i)
                tabDbl(i) = tmpDbl
            End If
        Next j
    Next i
    
    'afficher la deuxième plus petite valeur
     MsgBox tabDbl(2)
End Sub

tabDbl(1) = 12.5
    tabDbl(2) = 7.3
    tabDbl(3) = 8.9
    tabDbl(4) = 15.2
    tabDbl(5) = 3.7
    
With Application.WorksheetFunction
    MsgBox .Small(tabDbl, 2) 'petite valeur
    MsgBox .Min(tabDbl) 'min
End With