Passer de colonne en nombre à colonne en chiffre sous VBa

Bonjour,

Je réalise un tri croissant d'une plage de cellule:


Sheets("Feuil2").Select
Range("b5:c20").Select
Selection.Sort Key1:=Range("b5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=F

J'aimerais pouvoir passer la colonne en numérique :

Sheets("Feuil2").Select
Range(Cells(2, 5), Cells(3, 20)).Select
Selection.Sort Key1:=(Cells(2, 5)), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Ainsi je pourais réaliser une boucle afin d'incrémenter de 5 ma colonne.
Le problème se situe ici: Key1:=(Cells(2, 5)),

Je ne comprend déja pas vraiment à quoi sert la fonction key1, mais surtout pourquoi la selection des cellules fonctionne au dessus, mais pas la.

Merci d'avance de votre aide.

Excell: 2003
VBA : 6