La fonction select case

Bonjour je voudrais exécuter le programme ci dessous mais quand je l'exécute on me dit "objet requis" j'avous que je ne vois pas la faille de mon code je vous prie de m'aider c'est urgent,

Private Sub essai()
Dim i As Integer
Dim note As Range
note = thisworkbooks.Worksheets("feuil1").cell(i, 1)
Select Case note.Value
Case 1
Worksheets("feuil1").cell(i, 2) = "demain"
Case 2
Worksheets("feuil1").cell(i, 2) = "aujourdhui"
Case 3
Worksheets("feuil1").cell(i, 2) = "hier"
Case Else
Worksheets("feuil1").cell(i, 2) = "vide"
End Select
End Sub