Option Explicit
Public Sub Auto_open()
Dim szFile As String, szLine As String, tabl() As String
Dim iFileNo As Integer, iSheet As Integer
Dim iLines As Long
Dim vrtFiles As Variant, fileToOpen As Variant
vrtFiles = Application.GetOpenFilename('*.*, *.*', , 'Fichier de Plus de 60000 Lignes', , True)
For Each fileToOpen In vrtFiles
Application.ScreenUpdating = False
Workbooks.Add
iFileNo = FreeFile
Open fileToOpen For Input As #iFileNo
iLines = 1
While Not EOF(iFileNo)
Line Input #iFileNo, szLine
szLine = Replace(szLine, Chr(32), '')
tabl() = Split(szLine, Chr(9))
If iLines > 65500 Then
iSheet = iSheet + 1
Sheets.Add after:=Sheets(iSheet)
iLines = 1
End If
Range(Cells(iLines, 1), Cells(iLines, 25)) = tabl()
iLines = iLines + 1
Wend
Close #iFileNo
Sheets(1).Select
Application.ScreenUpdating = True
Next fileToOpen
End Sub