Sub aa()
Dim R As Range
Dim var
Dim i&
Dim k&
Dim cpt&
Dim T()
Dim x#
Dim Big#
'---
On Error Resume Next
Set R = Selection
If Err <> 0 Or R.Columns.Count > 1 Or R.Rows.Count = 1 Then
MsgBox "Sélectionnez une plage de cellules sur une seule colonne."
Exit Sub
End If
On Error GoTo 0
var = R
'---
For i& = UBound(var, 1) To 2 Step -1
If var(i&, 1) <> "" Then
If var(i&, 1) = 0 Then
If var(i& - 1, 1) = 0 Then
x# = 1
Else
For k& = i& - 1 To 1 Step -1
If var(k&, 1) > Big# Then Big# = var(k&, 1)
If var(k&, 1) = 0 Then
x# = Big#
Big# = 0
Exit For
End If
Next k&
End If
'---
If x# > 0 Then
cpt& = cpt& + 1
ReDim Preserve T(1 To cpt&)
T(cpt&) = x#
End If
End If
End If
Next i&
'---
Set R = [j3] '1ère cellule où s'inscriront les résultats A ADAPTER
For i& = cpt& To 1 Step -1
R = T(i&)
Set R = R.Offset(1, 0)
Next i&
End Sub