Choix du chemin pour ouverture fichiers TXT

Bonjour à tous

Depuis deux jour j'essaye de modifier la macro ci-dessous, afin de remplacer la partie rouge.

J’aurai besoin que le chemin ne soit pas en dur, mais plutôt utiliser le fonction ouvrir d’Excel pour faire manuellement le choix du dossier ou ce trouve les fichiers TXT

Pouvez vous m'aider ? merci

Sub ImportfichiersText(NomFichier As Variant, Cible As Range)

Dim QT As QueryTable

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _

NomFichier, Destination:=Cible)

With QT

.Refresh

End With

End Sub

Sub Import_fichiers_TXT_certificats()

Dim Fichier As String, Chemin As String

Dim i As Long

'Répertoire contenant les fichiers

Chemin = "C:\Users\lfd\Desktop\Quotidien\MACRO SAF\TXT"

Fichier = Dir(Chemin & "\*.txt")

'Boucle sur les fichiers

Do While Fichier <> ""

i = Range("A65536").End(xlUp).Row + 1

ImportfichiersText Chemin & "\" & Fichier, Cells(i, 1)

Fichier = Dir

Loop

End Sub

chemin = Application.GetOpenFilename
msgbox (chemin)

Merci EngueEngue,

mais, j'ai un message excel qui me donne le chemin et cela n'ouvre pas les fichiers

je mets mon fichier en pieces jointe et je continue à chercher.

Merci