Bonjour,
un essai se rapprochant de l'existant :
Sub Gugus1()
Dim cellule As Range, Plage As Range, Derlig As Long
With Worksheets("Feuil2") ' à adapter
Derlig = .Range("B" & Rows.Count).End(xlUp).Row
Set Plage = .Range("B3:B" & Derlig)
For Each cellule In Plage
cellule.Offset(0, -1) = (cellule / (cellule.Offset(-1, 0) - 1)) - 1
Next cellule
End With
End Sub
les données sont en colonne B le résultat une colonne avant. A adapter
une autre version qui va insérer une formule:
Sub Gugus2()
Dim Derlig As Long
With Worksheets("Feuil2") ' à adapter
Derlig = .Range("B" & Rows.Count).End(xlUp).Row
.Range("D3").Formula = "=(B3/(B2-1))-1"
.Range("D3").AutoFill Destination:=.Range("D3:D" & Derlig), Type:=xlFillDefault
End With
End Sub
les données sont en colonne B le résultat en colonne D. A adapter
Je m'arrête avant 99 !
A+