En fait j'ai trouvé sur un autre site comment faire et je l'ai adapté:
vmax = Range("D5:D50").Cells(1, 1).Value
For I = 2 To 8
If vmax < Range("D5:D50").Cells(I, 1).Value Then vmax = Range("D5:D50").Cells(I, 1).Value
Next I
Range("D5:D50").Cells(15, 1).Value = vmax
vmin = Range("D5:D50").Cells(1, 1).Value
For I = 2 To 8
If vmin > Range("D5:D50").Cells(I, 1).Value Then vmin = Range("D5:D50").Cells(I, 1).Value
Next I
Range("D5:D50").Cells(16, 1).Value = vmin