Problème Transfert fichier TXT vers Excel - Refresh

[fifou]

Bonjour,

Je n'arrive pas à trouver la solution à mon problème,
Lorsque je souhaite transferer mon fichier texte vers excel, j'ai un message d'erreur
Erreur d'éxécution '1004' "Impossible de trouver le fichier texte pour l'actualisation de cette plage...."
Et la macro se bloque sur cette ligne :

Worksheets("TXTtoXLS").QueryTables.Add("TEXT;" & FichierTXT, Cells(1, 1)).Refresh

J'ai l'impression que j'ai un souci avec le refresh...

Si quelqu'un à la solution ça serait TOP
Voici le code complet :

Sub test()

Sheets("TXTtoXLS").Select
Cells(1, 1).Select

    Dim FichierTXT
    Dim numResult As Integer
   
    
    FichierTXT = Dir("C:\Users\m422115\Desktop\prognos\", 0)
  
While FichierTXT <> ""

    numResult = numResult + 1
    Worksheets("TXTtoXLS").QueryTables.Add("TEXT;" & FichierTXT, Cells(1, 1)).Refresh

   
   
   FichierTXT = Dir

Wend
End Sub