Pb sous VB !! Please Help !!

pour selectionner un tableau de cellules, j'utilise :
Range(Cells(x1,y1),Cells(x2,y2)).Select

Sub minimum_cells()
Dim i As Double
i = 9999999
On Error Resume Next
For Each Row In Selection.Rows
For Each C In Row.Cells
If C.value <= i Then
i = C.Value
End If
Next
Next
Application.StatusBar = "le minimum des cellules est : " & i
End Sub

(g pas testé la macro - pas le temps - faut juste selectionner les cellules et lancer la macro)
@+