Line Input #iFileNum, sLine
' now you have the next line of the file in sBuf
' do something useful:
[COLOR="#FF0000"]With Sheets("Feuil1")
Dl1 = .Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1 ' avec numéro de colonne
.Range("A" & Dl1) = sLine
End With[/COLOR]
.......................