xfert an access table into an excel file and format

Hello,
I am a French developer with access and excel.
my job today is to format an excel file through an access application.
The mistake today is how I can sort my data when the number of rows is different each time , my file is a result and I have to give it in excel format.
here is my mistake

aaa = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
bb = "B2,H" & aaa
aa = "A2,H" & aaa
ActiveWorkbook.Worksheets("transfert_compta").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("transfert_compta").Sort.SortFields.Add Key:=Range(bb), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("transfert_compta").Sort
.SetRange Range(aa)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Thank you for the answer
Daniel

Hello,
I've got a solution to my deal,
here it is

'cellule de départ de tri
.Range("a2").Select
aa = .ActiveCell.Address
'cellule de fin de tri
.Range("h2").Select
.Selection.End(xlDown).Select
bb = .ActiveCell.Address
' .Range (bb)
.Selection.End(xlDown).Select
bb = .ActiveCell.Address
' cellule 1 de colonne de tri
.Range("b2").Select
trd = .ActiveCell.Address
' cellule fin de colonne de tri
.Selection.End(xlDown).Select
trf = .ActiveCell.Address



.ActiveWorkbook.Worksheets("transfert_compta").Sort.SortFields.Clear
.ActiveWorkbook.Worksheets("transfert_compta").Sort.SortFields.Add Key:=Range(trd & ":" & trf), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("transfert_compta").Sort
.SetRange Range(aa & ":" & bb)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' Sauvegarder et fermer le classeur
ActiveWorkbook.Save
.Quit
friendly
Daniel