Non prise en compte cellule vide sous excell

Bonjour,

je suis en train d'essayer de programmer une alarme qui m'avertira à partir de j-40 de l'expiration d'une date , mais mon programme plante des qu'une cellule sous excel est vide.voici mon programme,

Private Sub Cmdverif_Click()
Dim j, l, h As Long

Sheets("Validite").Select

j = 2
While Sheets("Validite").Cells(j, "b") <> ""
j = j + 1
Wend

h = 2
l = 2



While l < j
If DateDiff("d", Format(Now, "dd/mm/yy"), Sheets("Validite").Cells(l, "c")) <= 40 Then

h = l

Vérification.TextBoxNom = Sheets("Validite").Cells(h, "b")



Vérification.Show


End If

l = l + 1
Wend








Unload Me

End Sub



j'ai essayé mais je ne trouve pas la réponse, merci d'avance.