Sub Test()
Option Explicit
Dim derlig As Long, NoLig As Long, NoLig2 As Long, valeur As Long, valmax As Long
derlig = Split(Worksheets("feuil1").UsedRange.Address, "$")(4)
NoLig2 = 10 'on fixe le N° de ligne du premier résultat à 10
Do
NoLig = NoLig + 1
valeur = Range("A" & NoLig) 'lecture de la donnée de la ligne, colonne A
If valmax < valeur Then valmax = valeur
If valeur = 0 And valmax <> 0 Then
Range("B" & NoLig2) = valmax '***
valmax = 0
NoLig2 = NoLig2 + 1
End If
valeur = 0
Loop While NoLig <= derlig
End Sub