VBA, un petit peu d'aide SVP

Bonjour,

Je trevail sous VBA avec EXcel.
J'ai un code qui tri un taleau par ordre croissant. Ca marche très bien jusqu'à 9, mais 10 se classe avant.
Concrètement ca me donne ca:
Lot 10
Lot 11
Lot 12
Lot 8
Lot1
Lot1
Lot10
lot12
Lot2

Vous pouvez voir que j'ai un autre problème: selon que l'onsaisisse Lot1 ou Lot 1; c'est pas pareil. Cela parait assez logique, mais je ne sais pas comment résoudre le problème. Du style, quoi que saisisse l'utilisateur, on obtiendrait "Lot 1".

Voici mon de code:


Sub TriTab()
Dim nbligne As Integer

nbligne = Worksheets("Recap Marché").Cells.SpecialCells(xlCellTypeLastCell).Row
Range("A3:K" & nbligne).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers

End Sub

Merci d'avance....