Pb de syntaxe d'une formule de rang?

Bonjour à tous,
je souhaite faire une procedure qui me classe des résultats.
Pour cela je veux utilisé la formule RANG.
Par contre, elle ne s'aplique pas toujours à la meme plage de cellule !!

J'ai donc commencé comme suit:

For Cel = PremCel To DerCel
Range("A" & Cel).Select
ActiveCell.Formula = Rank(5, PremCol & ":" & DerCol)
Next Cel

*PremCel est la premiere cellule ou je souhaite faire ce calcul
*DerCel est la derniere cellule
*PremCol est le debut de la plage de comparaison
*DerCol est la fin de cette plage

A l'activation de la macro, j'ai un message me disant:
Erreur de compilation:
Sub ou fonction non definie

Si QQun à un solution a me proposer ????!!!!

Merci d'avance