Importation fichier txt selon critère

Bonjour,

Je cherche à améliorer une macro qui importe des fichiers txt sur excel.

Pourquoi ? Parce que mon dossier contient énormement de fichier par conséquent l'éxecution de ma macro est de plus en plus longue. Actuellement la seule alternative que j'ai trouvée consiste à réimporter tous les fichiers puis de supprimer ce que j'avais déjà --> perte de temps

Qu'est ce que je recherche ? Je souhaiterai, lorsque j'execute ma macro, pouvoir choisir les fichiers que je veux importer en fonction de leurs date de création. Par exemple importer tous les fichiers du 01/04/13 jusqu'à aujourd'hui

Est ce possible ?

Voilà ma macro d'importation

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

Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select

'Répertoire contenant les fichiers
Chemin = "N:ND 123\donnees\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)
Cells(i + 5, "P").Resize(24) = FileDateTime(Chemin & "\" & Fichier)
Fichier = Dir
Loop
End Sub


Merci