Problème de résultat de tri

Bonjour,
voici le résultat de tri que j'obtiens en utilisant la fonction TRI de excel.
Extrait du ficiher qui comporte 3916 lignes et 16 colonnes :

ID Sexe Préfixe Prénom Nom Suffixe Nom marital Evènements
"1" M Robert Jean Albert CHAUVET
"1" M Robert Jean Albert CHAUVET
"10" M Henri Louis QUINKAL
"11" M Henri Pierre Gustave CHAUVET
"12" F Louise Rose AUBERT
"13" M Severin Gustave Etienne CHAUVET
"14" F Marie Juliette PIERCY CHAUVET
"15" M Jean Albert Auguste CHAUVET
"16" M André Louis Fernand Albin CHAUVET
"17" M Albert Severin Etienne CHAUVET
"18" M Jean François DUPONT
"19" M André Joseph CHEILLAN
"2" F Monique Frida Madeleine MALEZIEUX CHAUVET
"2" F Monique Frida Madeleine MALEZIEUX
"2" F Monique Frida Madeleine MALEZIEUX
"20" F Maria Cécilia CALA
"21" F Claudine CHEILLAN
"22" F Margueritte CHEILLAN
"23" M Alain LOPEZ
"24" M Jean Louis Jacques Marcel PISANO
"25" F Alexandra Irmgard PISANO
"3" M Pierre Fernand Albert CHAUVET
"4" F Marcelle Henria QUINKAL CHAUVET
"5" F Anne Marie Rose Juliette CHAUVET
"6" F Isabelle Marguerite Marcelle CHAUVET COLLET
"6" F Isabelle Marguerite Marcelle CHAUVET
"7" F Cécile Anne Marie CHAUVET
"8" M Sylvain Pierre André CHAUVET
"9" F Roselyne Marie Jeanne CHEILLAN

Ces données ont été importées à partir d'un fichier CSV avec le code suivant

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Robert CHAUVET\Documents\MyHeritage\Robert Jean Albert CHAUVET\Reports\Robert Jean Albert CHAUVET_People_Report.csv" _
, Destination:=Range("$A$1"))
.Name = "Robert Jean Albert CHAUVET_People_Report"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Je souhaite obtenir un classement normal 1,2,3,4,5 etc...
Merci par avance de votre aide