Afficher le min de chaque ligne d'un tableau

Sub test()
Dim tableau(2, 2) As Variant
tableau(0, 1) = 1
tableau(0, 2) = 2
tableau(1, 1) = 1
tableau(1, 2) = 3
tableau(2, 1) = 1
tableau(2, 2) = 4
MsgBox Application.WorksheetFunction.Min(tableau)
End Sub

Sub test()
Dim tableau(2, 2) As Variant, i%, j%, m As Double
  tableau(0, 1) = 1
  tableau(0, 2) = 2
  tableau(1, 1) = 1
  tableau(1, 2) = 3
  tableau(2, 1) = 1
  tableau(2, 2) = 4
  For i = 0 To UBound(tableau)
    m = 1.79769313486231E+308
    For j = 1 To UBound(tableau, 2)
      If tableau(i, j) < m Then m = tableau(i, j)
    Next
    MsgBox "Minimum(ligne " & i & ") = " & m
  Next
End Sub

Sub test()
Dim tableau, mini(), i&, j&

'lecture du tableau en A4
tableau = Range("A4").CurrentRegion.Value
'on dimensionne le tableau résultat: mini qui contiendra
' dans chaque ligne i le minimum de la ligne i de tableau
ReDim mini(LBound(tableau, 1) To UBound(tableau, 1))

'boucle sur chaque ligne i de tableau
For i = LBound(tableau, 1) To UBound(tableau, 1)
  'pour la ligne i, on initialise le minimum avec la première valeur de la ligne i
  mini(i) = tableau(i, LBound(tableau, 2))
  For j = LBound(tableau, 2) + 1 To UBound(tableau, 2)
    ' pour chaque colonne de la ligne (excepté la première qu'on a déjà placé
    ' dans le tableau mini), on compare la valeur à l'actuel minimum.
    ' Si la valeur est inférieure, on procède au remplacement de l'actuel
    ' minimum par la nouvelle valeur plus petite.
    If tableau(i, j) < mini(i) Then mini(i) = tableau(i, j)
  Next j
Next i
    
'on transfert le tableau des mini sur la feuille de calcul
Range("A4").Offset(-1, UBound(tableau, 2) + 1) = "Mini"
Range("A4").Offset(, UBound(tableau, 2) + 1).Resize(UBound(tableau, 1)) = _
      Application.Transpose(mini)

End Sub