Boucle importation fichiers texte

Sub Imports()
    
'Déclarations
    Dim Chaine As String
    Dim Ar() As String
    Dim I As Long
    Dim iRow As Long, iCol As Long
    Dim FileName As String
    Dim Path As String
    Dim Separateur As String * 1
    
 'Initialisations
    Separateur = ";"
    Cells.Clear
    iRow = 2
    iCol = 2
    Path = "F:\LOGS\*.txt"
    FileName = "F:\LOGS\" + Dir(Path)   

'Boucle sur le répertoire
    While FileName <> ""
       Open FileName For Input As #1
       iCol = 1
       Line Input #1, Chaine
       
        'On parse le fichier dans un tableau
         Ar = Split(Chaine, Separateur)
                  
        'On écrit dans Excel
         For I = LBound(Ar) To UBound(Ar)
             Cells(iRow, iCol) = Ar(I)
             iCol = iCol + 1
         Next
         iRow = iRow + 1
        FileName = "F:\LOGS\" + Dir
        
       Close #1
    
    Wend
 End Sub