Bonsoir à tous,
Je suis comme les copains, je ne vois pas très bien les calculs à effectuer et où les afficher
Sub test()
Dim r As Range, i As Byte
For Each r In Range("a8", Range("a" & Rows.Count).End(xlUp)).SpecialCells(2, 1).Areas
For i = 1 To 3
r(0).Offset(, 3 + i).Formula = "=subtotal(9," & r.Offset(, i).Address & ")"
Next
Next
End Sub
Ci dessous, les valeurs max de chaque zone :
Sub max()
Dim r As Range, i As Byte
For Each r In Range("a8", Range("a" & Rows.Count).End(xlUp)).SpecialCells(2, 1).Areas
For i = 1 To 3
r(0).Offset(, 3 + i).Formula = "=max(" & r.Offset(, i).Address & ")"
Next
Next
End Sub
klin89