Amélioration macro, imporation de fichiers txts

Bonjour,

Ci-dessus, j'ai une macro qui importe des fichiers txts d'un dossier vers mon classeur Excel. Lorsque je lance la macro les fichiers se rangent dans l'ordre croissant par rapport à leurs noms sur ma feuille excel

Est-il possible de rajouter une ligne de code qui permettre de ranger les fichier txts dans mon classeur en fonction de leurs date de modification ?
ex : le fichier le plus ancien se range en A1
...
le fichier le plus récent se range en A....

précision : Les fichiers txts sont classé par rapport à leur date de modif dans le fichier source, du plus ancien au plus récent


voici la macro:

Sub importfichiertxt()
Dim Fichier As String, Chemin As String
Dim i As Long


'Répertoire contenant les fichiers
Chemin = "N:\Departements\export"
Fichier = Dir(Chemin & "\*.txt")

'Boucle sur les fichiers
Do While Fichier <> ""

i = Range("A65536").End(xlUp).Row + 1
ImportText Chemin & "\" & Fichier, Cells(i, 1)

Fichier = Dir
Loop
End Sub
Sub ImportText(NomFichier As Variant, Cible As Range)
Dim QT As QueryTable

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
NomFichier, Destination:=Cible)

With QT
'Définit les séparateur de colonnes dans le fichier txt
.TextFileOtherDelimiter = ";"
.TextFileSemicolonDelimiter = True
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.Refresh
End With
End Sub

Merci