Plus de 3 critères de tri et concaténation

Bonsoir,
Tout d'abord j'adresse mes meilleurs voeux à tous les contributeurs de ce forum.

Je pensais en avoir fini ! Ultime test et voilà que je retrouve un bug que je ne m'explique pas. Je me résigne donc à faire appel aux experts.
Dans mon programme de gestion de courses, je dois départager les éventuels ex-aequo suivant plusieurs critères. (en plus du tri sur le cumul des points, cela fait 4 conditions de tri ...et c'est là mon problème).
1er critère = celui qui a pu retirer (joker) le meilleur score (aucun souci ça fonctionne colonne BI)
si l'égalité persiste,
2ème critère = Celui qui a battu l'autre le plus de fois (sur les quinze courses) et enfin si l'égalité persiste
Le 3ème critère = celui qui a réalisé la meilleure dernière course. (rang)
Limité à 3 conditions (excel 2003), pour pouvoir répondre à ces deux dernières conditions j'ai donc imaginé une concaténation (colonne CB) en ayant préalablement classé les valeurs (petite.valeur - colonnes BJ à BX) pour chacun des concurrents. Je vous joins ci-après la macro)
Problème : si je convertis la concaténation en numérique la meilleure dernière course (BY) ne s'affiche pas (voir 1er exemple ci-après). Si je laisse la concaténation en texte tout s'affiche correctement mais le tri ne s'exécute pas et j'ai toujours une inversion entre les 9ème et 10ème place. (Ici celui qui fait 18 (score) à la dernière course devrait être classé devant).
PS : La colonne G est le total des points cumulés qui est bien entendu le premier critère de tri avant le départage des ex-aequo.)

Quelqu'un pourrait t'il me venir en aide SVP.
Avec mes remerciements anticipés.

GIBO35


=CNUM(BJ9&BK9&BL9&BM9&BN9&BO9&BP9&BQ9&BR9&BS9&BT9&BU9&BV9&BW9&BX9&BY9)
Meil dernière course Concaténation

1 2400000000000000 4 2
2 2400000000000000 2 4
3 6600000000000000 6 6
4 8800000000000000 8 8
5 101200000000000000 12 10
6 101200000000000000 10 12
7 141400000000000000 14 14
8 161600000000000000 16 16
10 1820000000000000000 18 20
9 182000000000000000 20 18


=(BJ9&BK9&BL9&BM9&BN9&BO9&BP9&BQ9&BR9&BS9&BT9&BU9&BV9&BW9&BX9&BY9)
1 2400000000000001 4 2
2 2400000000000002 2 4
3 6600000000000003 6 6
4 8800000000000004 8 8
5 101200000000000005 12 10
6 101200000000000006 10 12
7 141400000000000007 14 14
8 161600000000000008 16 16
10 1820000000000000010 18 20
9 182000000000000009 20 18


Sub calculer_classement()
'
' calculer_classement Macro
'
Dim mdp As String
mdp = Sheets("feuil1").Range("A1").Value
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveWorkbook.Unprotect
Sheets("classement ").Visible = True
Sheets("classement ").Select
ActiveSheet.Unprotect mdp
Range("B9:CV132").Select
Selection.Sort Key1:=Range("G9"), Order1:=xlAscending, Key2:=Range("BI9") _
, Order2:=xlAscending, Key3:=Range("CB9"), Order3:=xlAscending, Header _
:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Sheets("classement ").Visible = False
Sheets("classement hommes").Visible = True
Sheets("classement hommes").Select
Range("A1").Select
ActiveSheet.Protect mdp
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub