Sub Test()
Dim Chemin As String
Dim Fichier As String
Dim Texte As String
Dim Sep As String
Dim X As Long
Dim Sh As Worksheet
Dim A As Long, B As Integer
'-------Variable à définir-------
'où est situé ton fichier
[COLOR="Red"]Chemin = "F:\LeChemin\TEST\"[/COLOR]
'nom de ton fichier texte
Fichier = "Test.txt"
' le séparateur employé dans ton fichier texte
Sep = vbTab
'Le nom de la feuille du classeur où seront copiées les données
Set Sh = ThisWorkbook.Worksheets("Feuil1")
'---------------------------------
B = NombreColonnes(Chemin & Fichier, vbTab)
Sh.Range("A1:B" & B).EntireColumn.NumberFormat = "@"
X = FreeFile
If Dir(Chemin & Fichier) <> "" Then
Open Chemin & Fichier For Input As #X
Do While Not EOF(X)
Input #X, Texte
If Texte <> "" Then
t = Split(Texte, Sep)
A = A + 1
Sh.Range("A" & A).Resize(, UBound(t, 1) + 1) = t
End If
Loop
Close #X
End If
derlig = Sh.Range("A" & Cells.Rows.Count).End(xlUp)(2).Row
Sh.Range("A" & derlig, "A" & Cells.Rows.Count).EntireRow.Delete
End Sub
'---------------------------------
Function NombreColonnes(Fichier As String, Sep As String)
Dim A As String, B As Integer
Open Fichier For Input As 1
Do While Not EOF(1)
Input #1, A
If A <> "" Then
Exit Do
End If
Loop
Close
NombreColonnes = _
Len(A) - Len(WorksheetFunction.Substitute(A, Sep, "")) + 1
End Function