soucis val min et max code vba

Sub minmax(plage As Range)
MsgBox "Vmin=" & WorksheetFunction.Min(plage) & vbLf & "Vmax=" & WorksheetFunction.Max(plage)
End Sub

Sub Rech_MinMax()
Dim MinMax()
    MinMax = MiniMaxi1(Selection)
    MsgBox "Vmin = " & MinMax(0) & vbNewLine & "Vmax = " & MinMax(1)
End Sub

Function MiniMaxi1(plage As Range)
Dim i&, j&, k&, Vmin%, Vmax%, v()
    If plage.Count > 1 Then
        Vmax = -32768
        Vmin = 32767
        v = plage.Value
        k = UBound(v, 2)
        For i = 1 To UBound(v): For j = 1 To k
            If v(i, j) < Vmin Then
                Vmin = v(i, j)
            ElseIf Vmax < v(i, j) Then
                Vmax = v(i, j)
            End If
        Next j, i
    Else
        Vmax = plage.Value
        Vmin = Vmax
    End If
    MiniMaxi1 = Array(Vmin, Vmax)
End Function