Date dépassée

Bonjour dans ma macro je souhaite dire, que si la date dans la cellule F9 est inférieur (date dépassée)a la date du jour le nom de la feuille s'affiche Mais je rencontre un problème car même quand la cellule F9 est vide le nom de la feuille s'affiche:

For Each wsn In t

If Worksheets(wsn).Range("F9").Value < datedujour Then

Worksheets("Accueil").Range("H" & k).Value = Worksheets(wsn).Range("C9").Value

Worksheets("Accueil").Range("I" & k).Value = wsn

k = k + 1

End If

Next wsn

For Each wsn In t

If Worksheets(wsn).Range("F9").Value <> datedujour Then

Worksheets("Accueil").Range("H" & k).Value = ""

Worksheets("Accueil").Range("I" & k).Value = ""

k = k + 1

End If

Comment puis je faire pour que seul les feuilles avec une date en cellule F9 s'affiche.

Bonjour,

à tester,

With Worksheets(wsn).Range("F9")
 If .Value <> 0 And .Value < Date Then 
     Worksheets("Accueil").Range("H" & k).Value = .Range("C9").Value
     Worksheets("Accueil").Range("I" & k).Value = wsn
     k = k + 1
End If
End With

Merci ça fonctionne

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!