'--------------------------
Dim Xl
dim wk
Set Xl = WScript.CreateObject("EXCEL.application")
Xl.Visible = True
Xl.enableevents = False
set Wk = Xl.workbooks.open("c:\XP\scripts\monfichier.csv")
Xl.Run "deleteLines"
xl.save
xl.close
'--------------------------