probleme de boucle

Sub import_données_mini_maxi()

    Dim chemin As String, fichier As String
    Dim fn$, txt$, sepa$, a(), dl As Long
    Dim n As Long, i As Long, f As Long, ff As Integer
    Dim d As Worksheet
    sepa = ";"
    chemin = ThisWorkbook.Sheets(2).[h4]
    fichier = ThisWorkbook.Sheets(2).[h5]
        ff = FreeFile
        On Error Resume Next
        Open chemin & fichier For Input As #ff
        If Err > 0 Then _
        MsgBox "Fichier non trouvé", vbExclamation, "Erreur sur le fichier": Exit Sub
        Do While Not EOF(ff)
            Line Input #ff, txt
            n = n + 1: ReDim Preserve a(1 To n)
            a(n) = Split(txt, sepa)
         Loop
        Close #ff
        fn = Dir()
      Set d = ThisWorkbook.Sheets(4)
    With d
    With .[A1]
        For i = 2 To n
            .Offset(i - 1).Resize(, UBound(a(i)) + 1).Value = a(i)
            dl = d.[A65536].End(xlUp).Row
                .Resize(dl).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 4)
                Next
    End With
    End With
End Sub