VBA - plus petite valeur d'une matrice

Sub PluPetiteValeur()
Dim Cel As Variant
Dim valeurMini As Variant
Dim plage1 As Range
Dim nbCol As Integer
Dim NbLig As Integer

Set plage1 = Range("B10:E13")

valeurMini = plage1.Cells(1, 1)
nbCol = plage1.Columns.Count
NbLig = plage1.Rows.Count


For i = 1 To nbCol
    For j = 1 To NbLig
        If plage1.Cells(i, j).Value < valeurMini And plage1.Cells(i, j).Value > 0 Then
        valeurMini = plage1.Cells(i, j).Value
        End If
    Next
Next
    
    
MsgBox valeurMini




End Sub