Bonsoir,
ce petit code met 65000 valeurs par onglet.... (et en rajoute, si le nombre dépasse 65000)
Sub Importer_Sup_65000()
Dim Valeur As String
Dim Fichier As String
Dim NumFichier As Integer
Dim NbFeuil As Long, I As Long
Fichier = "F:\TesDocs\essai.txt"
If Fichier = "" Then End
NumFichier = FreeFile()
Open Fichier For Input As #NumFichier
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
NbFeuil = 1: I = 2
Do While Seek(NumFichier) <= LOF(NumFichier)
Application.StatusBar = "Importation du Fichier : " & Fichier _
& " dans l'onglet : " & ActiveSheet.Name
Line Input #NumFichier, Valeur
Cells(I, 1).Value = Valeur
If I = 65501 Then
Sheets.Add After:=Sheets(Sheets.Count)
NbFeuil = NbFeuil + 1: I = 2
Else
I = I + 1
End If
Loop
Close
Application.StatusBar = False
End Sub
Bonne soirée