Erreur d'execution 13 : incomptabilite de type

Bonjour a tous,

je vous remercie d'avance de prendre de votre temps pour me repondre car je ne suis qu'un jeune novice en la matière!

Voila, apres avoir navigue de forums en forums a la recherche d'une solution, apres avoir lu des "tutoriels", je ne trouve toujours pas mon erreur dans mon programme en VBA.
Auriez-vous la gentillesse de me filer un coup de main?
Le voici,

Option Explicit
Private Sub procNombrederesidents()

Worksheets("Potential list").Activate

Dim i As Integer
Dim N As Integer
Dim E As String
Dim M As String

N = 0

For i = 1 To 1400
If Cells(i, E).Value = "Hong Kong" Then N = N + 1
Next i

Cells(1, M).Value = N

End Sub

Merci beaucoup!