Probleme trie données sous vba d excel

Bonjour,

J'ai réalisé sous vba un programme pour convertir des données csv sous format de mon logiciel comptable.
ces données sont télechargées avec des noms de fichiers qui changent à chaque fois.

Je voudrais, en vba sous excel, trier la colonne A de la feuille active sans devoir à chaque fois changer préalablement le nom de cette feuille (ci dessous appellé TOTO...).

Y a t il une solution en utilsant thisworkbook et ou thisworksheet

Voici mon code comportant le nom "TOTO" que je voudrais supprimer.

Par avance merci de vos réponses.

Sub Trie()
'
Columns("A:J").Select
ActiveWorkbook.Worksheets("TOTO").Sort.SortFields. _
Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("TOTO").Sort
.SetRange Range("A1:J52")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub