Import fichiers txt en commençant à la 5 lign

Bonjour,

J'ai trouvé du code pour importer plusieurs fichiers txt, présents dans un même répertoire.
Le problème est que dans ces fichiers, qui ont la même structure, je ne veux pas importer les 4 premières lignes. J'ai essayé avec RowStart ou Range, mais je n'y arrive pas.

Voici le code actuel :

Dim Chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = ThisWorkbook.Path
'
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
If Right(Fichier.Name, 3) <> "xls" Then
LireFichier Fichier
End If
Next
'Conversion des données
'Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
'TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
'Semicolon:=False, Comma:=True, Space:=True, Other:=False
'Range("A5").Select
End Sub

Sub LireFichier(Fichier As Object)
Dim NL As Long, Chaine As String
Dim L As Long


'Insère le nom du fichier
L = ActiveSheet.Range("A65536").End(xlUp).Row
Cells(L + 1, 1).Value = Fichier.Name
'Récupère les lignes du fichier
Open Fichier For Input As #1
RowStart = 4
Do While Not EOF(1)
NL = NL + 1
Input #1, Chaine
Cells(L + NL + 1, 1).Value = Chaine
Loop
Close #1
End Sub

Merci ;))