Salut

j'ai trouvé un autre code assez simple (pour min il suffit de changer en Application.WorksheetFunction.min)

Sub max()

Dim i As Integer 'déclare les variables
Dim cellules As Range
Dim e As Integer

'Cherche la dernière cellule dans la colonne A qui contient une valeur
e = Range("A3000").End(xlUp).Row

'Plage de valeurs allant de la cellule A1 à la dernière cellule contenant une valeur
Set cellules = Range("A1:A" & e)

'fonction Max résultat se trouve dans la cellule B1
Range("B1").Value = Application.WorksheetFunction.max(cellules)

End Sub Intel Pentium 4 2Core 3,6GO 
C.M. ASUS P5GDC Deluxe
Chipset Intel Grantsdale I915 Socket LGA 775
2048MO DDR2 Dual Channel OCZ Gold
C.G. ATI 3850HD 256MO 400MHZ
3 DD Maxtor
XP Service Pack 3
Mozilla 3.0.3

En plus simple, si c'était le "e = Range("A3000").End(xlUp).Row" que tu comprenais pas il s'agissait
seulement de déterminer les cellules non vide de la colonne A

je pense qu'il n'y a pas plus simple au lieu de s'embèter a faire 36 boucles
il suffit de prendre la fonction max de VBA

voila


Dim cellules As Range 'déclare que la variable appelé cellules est une cellule

' je veux chercher la valeur la plus haute entre A1 et A10 par ex.
Set cellules = Range("A1:A10")

'la valeur la plus haute se copiera dans la cellule B1
Range("B1").Value = Application.WorksheetFunction.max(cellules)

Intel Pentium 4 2Core 3,6GO 
C.M. ASUS P5GDC Deluxe
Chipset Intel Grantsdale I915 Socket LGA 775
2048MO DDR2 Dual Channel OCZ Gold
C.G. ATI 3850HD 256MO 400MHZ
3 DD Maxtor
XP Service Pack 3
Mozilla 3.0.3