Dim i As Long, j As Long, debut As Range, fin As Range, mini As Double, maxi As Double
Set debut = Cells(i, 4)
Set fin = Cells(j, 4)
With Range(debut, fin)
mini = Application.WorksheetFunction.Min(.Cells)
maxi = Application.WorksheetFunction.Min(.Cells)
End With