Fai questa prova.

Inserisci in un modulo questo codice

codice:
Function cicla_eta(eta As Range) As Double
Dim cont As Integer
Dim percentuale As Double

cont = 21
percentuale = 100

Do While cont <= eta
    percentuale = percentuale - (percentuale / 100 * 25)
    cont = cont + 1
Loop
cicla_eta = percentuale
End Function
e richiama la funzione come se fosse nativa di excel

=cicla_eta(a1)

Facci sapere.