Bonjour,
Une autre piste avec VBA :
Sub Test()
Dim Plage As Range
Dim Tbl() As Double
Dim Max As Double
Dim I As Long
Dim J As Integer
With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)): End With
For I = 2 To Plage.Count
If Plage(I).Value > Plage(I - 1).Value Then
If Max < Plage(I).Value Then Max = Plage(I).Value
Else
If Max = Plage(I - 1).Value Then
'si on amorce la phase de descente, mémorise le pic dans le tableau
J = J + 1: ReDim Preserve Tbl(1 To J)
Tbl(J) = Max
'et colore la cellule en rouge
Plage(I - 1).Interior.ColorIndex = 3
Max = 0
End If
End If
Next I
'inscrit les valeurs en colonne C
Cells(1, 3).Value = "Pics (m)"
For I = 1 To UBound(Tbl())
Cells(I + 1, 3).Value = Tbl(I)
Next I
End Sub