Implémentation d'une Range

Bonjour a tous,

Je voudrais utiliser la fonction PercentRank.

Code:

1
2
3
4
5
6
7
8
9
10
11
        With Sheets("CrossSectional")
            nbcol = .Cells(1, Columns.Count).End(xlToLeft).Column
                For j = 2 To nbcol
                    Select Case .Cells(8, j)
                        Case Is = ""
                             plage = Range(.Cells(7, 2), .Cells(7, nbcol)).Select
                            .Cells(8, j) = .Cells(7, j) + (1 - WorksheetFunction.PercentRank(plage, .Cells(8, j))) * (WorksheetFunction.Max(plage) - WorksheetFunction.Min(plage))
                            Case Else
                    End Select
                Next j
        End With

J'esssaye de stocker ma Range de Valeur dans la variable Plage.

Lorsque j'essaye de recuperer mon PercentRank il me renvoie le message d'erreur suivant :

Citation:

Object variable or with block variable not set.

Je ne connais pas la methode pour stocker une Range dans une variable.

Des idées ?