Saisie affecter dans une cellule

Bonjour,

J'aimerai saisir un nouveau poisson Tropical et affecter chaque saisie à une cellule de ma feuille 4

Jai un message d'erreur : Erreur de compilation, Sub ou Function non définie

Public Type PoissonTropical

     Nom As String * 30
     Couleur As String
     PoidsMoyen As Single
     Habitat As String

End Type

Sub NouveauPoissonTropical()

    Dim NouveauPoisson As PoissonTropical
    On Error GoTo Sortie_Sur_Erreur

    NouveauPoisson.Nom = InputBox("Saisir le nom")
    Worsheets("Feuil4").Range("I2").Value = NouveauPoisson.Nom
    NouveauPoisson.Couleur = InputBox("Saisir la couleur")
    Worsheets("Feuil4").Range("I3").Value = NouveauPoisson.Couleur
    NouveauPoisson.PoidsMoyen = InputBox("Saisir le poids moyen en Kg")
    Worsheets("Feuil4").Range("I4").Value = NouveauPoisson.PoidsMoyen
    NouveauPoisson.Habitat = InputBox("Saisir le lieux d'habitat")
    Worsheets("Feuil4").Range("I5").Value = NouveauPoisson.Habitat

Sortie_Sur_Erreur:

End Sub

Bonsoir,

WorkSheets et non Worsheets

Cela ne change rien , il me mets toujours le même message

Oh lala je vais m'acheter des lunettes. Merci beaucoup