Salut,
Dim xls As Excel.Application

Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "d:\temp\Test.xls"
'xls.Visible = True
xls.Sheets(Array("Feuil1", "Feuil2", etc)).Select...