Classement de données en VBA

Bonjour,

j'ai cette formule qui me fait le classement des données par valeur sans sauter les valeur comme fait la fonction de excel , voila la fonction

=IF(D2=D3,E2,E2+1)

ce que j'essaye de faire est de transformer cette fonction en code vba , voila mon essaye :

Sub rank()
Dim i As Integer

Cells(2, 5) = 1
For i = 2 To WorksheetFunction.CountA(Columns(4))
If Cells(i, 4).Value = Cells(i + 1, 4).Value Then
Cells(i, 5).Value = Cells(i, 5).Value
Else: Cells(i, 5).Value = Cells(i, 5).Value + 1
End If
Next i

End Sub

mais je recois que des un dans toute la colonne , quelqu'un peut m'aider pour trouver ou est le probleme s'il vous plait et merci d'avance