utiliser la fonction Rank avec une plage nommée

J'ai définit des plages nommées pour effectuer des calculs de rang par rapport à différents rayons
Ex :
Ray13 valeur
Ray 13 valeur
Ray 13 valeur
Rayon12 valeur
Ray12 valeur

Les noms de plages de cellules reprennent le nom de la feuille (acyivesheet .name& le nom du rayon)
Une plage nommée pour ray13 : juinray13
Une plage nommée pour rayon 12 : juinray12
J'ai fait une macro, ça marche bien

Ayant plus de 8 rayons je ne peux faire un Si car n'accepte que 6 sous conditions.
Je fais une function afin d'envoyer dans ma fonction range le tri dans la plage nommée correspondante.
Il ne parvient pas à évaluer la plage nommée dans ma fonction Rank.

Function calculrang(rayon As Integer, cellule)
'JE RECHERCHE LE NOM DE LA FEUILLE POUR AVOIR LE NOM DE LA PLAGE RAYON
Dim Nomfeuille As String
Dim plagerang As Range

Nomfeuille = ActiveSheet.Name

'EN FONCTION DU NUMERO DE RAYON JE CALCUL LE RANG
Select Case rayon

'LE RAYON =13
Case 13
plagerang = Nomfeuille & "ray13"
calculrang = Application.WorksheetFunction.Rank(cellule, plagerang, 1)

'CAS OU RAYON =12
Case 12
plagerang = Nomfeuille & "ray12"
calculrang = Application.WorksheetFunction.Rank(cellule, plagerang, 1)

End Select
End Function

J'ai également essayé avec set plagerang.name=nomfeuille & ray13
Rien n'y fait

Je vous remercie pour votre aide
Cordialement