Re
1. En B2 modifiez la formule comme ceci --> =SI(MAX(B1+1)<MAX(A$1:A$23);B1+1;MAX(A$1:A$23))
2. En B1 modifiez la formule --> =MIN(A1:A23)
3. Placez ensuite ce code dans un module
Sub Incrementer()
Dim dlg As Byte, i As Byte
dlg = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Range("A" & dlg)
Range("B2").AutoFill Destination:=Range("B2:B" & i + 1), Type:=xlFillDefault
Next i
End Sub
Associez le code à un bouton éventuellement pour l'exécuter
NB :
- 23 étant la ligne où se trouve actuellement le chiffre 39. Si cela peut varier il faut penser à modifier la formule pour l'adapter à la plage
- Important --> le code suppose que vous n'avez pas de cellule remplie en dessous du chiffre 39 qui ne concernerait pas votre demande
Crdlt