Réponse acceptée !
N oublie pas de faire une reference vers Microsoft Excel (projet reference)
et apres fait ca:

Dim AppExcel As Excel.Application
Dim WBK As Excel.Workbook
Dim wks As Excel.Worksheet
Dim Cht As Excel.Chart
Dim Rng As Excel.Range
Dim Rge As String
Open "log.txt" For Output As #1
Set AppExcel = New Excel.Application
AppExcel.Visible = False
AppExcel.DisplayAlerts = False
'AppExcel.Visible = True
Set WBK = AppExcel.Workbooks.Open(sFichier)
Set wks = WBK.Worksheets(1)
While wks.Cells(i, 2).Value <> ""
    Print #1, wks.Cells(i, 1).Value
    i=i+1
wend
WBK.Save
WBK.Close
AppExcel.Quit

Set wks = Nothing
Set WBK = Nothing
Set AppExcel = Nothing

Close #1
-