erreur d'execution 9 avec Sheets

Bonjour

Voila mon probleme ,vb6 me sort une erreur d'execution 9 :indice en dehors de la plage
 Je suis absolument certain que le nom de ma feuille est bonne,et pourtant il me sort l'erreur sur cette ligne,je ne comprend pas du tout
Voila mon code:

Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
Set owk = oExcel.Workbooks.Open("C:\Program Files\Microsoft Visual Studio\VB98\projet\dossier xls ouvert\Sommaire dossier.xls")
Sheets("Feuil1").Select         'erreur sur cette ligne

If Vfeutest = "Non" Then
Rows(18).Delete
End If

owk.SaveAs "C:\Program Files\Microsoft Visual Studio\VB98\Client " & VnumeroClient & "\Sommaire dossier.xls"
owk.Close

Une aide serait la bienvenue
merci d'avance : )