whats wrong in this?

[loswillys]

Sub testObjet()
Dim feuil1 As Worksheet
Dim y As Double
Set feuil1 = worsheets(1)
y = 127.66
feuil1.Cells(1, 1) = y


I get "Function or Sub not defined"...

thanks for your help