Erreur 91 en vb

bonjour a tous,
je n'arrive pas a résoudre mon erreur et j'esppere que vous pourrez m'aider
j'ai mis en evidence la ligne surlignée en jaune pas le debogage.
il me met erreur 91 : variable objet ou variable de block with non definie.
voila le code :

Do While i <= Subscript
d = Ref.Cells(i, DATE_EVENEMENT)
E = UCase(Ref.Cells(i, EVENEMENT))

If E = "SORTIE" Then
'Le collaborateur a quitté l'entreprise
IgnorerTaux = True
End If

If EstDansPériode(d) = APRES Then
If i = IDeb Then
'le collaborateur est entré après la fin de période
Ignorer = True
End If

Exit Do
End If

If EstDansPériode(d) = AVANT Then
If E = "SORTIE" Then
'le collaborateur est sorti avant le début de période
Ignorer = True
Exit Do
End If

'Le collaborateur était déjà présent avant le début de période
AncienSalaire = Ref.Cells(i, SALAIRE)
DernierSalaire = Ref.Cells(i, SALAIRE)
Ancien = True
End If

If EstDansPériode(d) = DEDANS Then
If i = IDeb Then
'le collaborateur est entré pendant la période
Entré = True
SalaireEntrée = Ref.Cells(i, SALAIRE)
End If

DernierSalaire = Ref.Cells(i, SALAIRE)

If E = "SORTIE" Then
'le collaborateur est sorti pendant la période
Sorti = True
Exit Do
End If
End If

i = i + 1
Loop


en esperant que vous pourez m'aider !!!
merci d'avance a tous ceux qui se pencheront sur le sujet !