Sub Tst()
Dim Chaine As String
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Cells.Clear
NumFichier = FreeFile
iRow = 1:iCol = 1
Open "C:\Documents and Settings\Mes documents\Mes sources de données\fichier.txt" For Input As #NumFichier
Do While Not EOF(NumFichier)
Line Input #NumFichier, Chaine
Cells(iRow, iCol) = Chaine: iRow = iRow + 1
Loop
Close #NumFichier
End Sub