Comparer une date à la date du jour

Bonjour,

Je fais appel à vous car je n'arrive pas à comparer deux dates.
J'ai une date du jour dans ma feuille 2 en cellule 01.
Dans ma feuille 1 j'ai un tableau avec des noms et des dates.
Je dois dire " si la date de la cellule w est plus petite que la date du jour alors ma cellule b12 de ma feuille 2 = a cellule b12 de ma feuille 2 + 1.
Cependant cela ne fonctionne pas !
Les cellules contenant des dates sont bien au format date avec le même format ...

Voici mon code :

Dim i As Long

i = 2

Do While Sheets("Feuille1").Cells(i, 1).Value <> ""
If Sheets("Feuille1").Cells(i, 7).Value <> "Fini" Or Sheets("Feuille1").Cells(i, 7).Value <> "Refusé" Then

If Sheets("Feuille1").Cells(i, 23).Value <> "" Then

If Sheets("Feuille1").Cells(i, 23).Value < Sheets("Feuille2").Range("o1").Value Then

Sheets("Feuille2").Range("B12").Value = Sheets("Feuille2").Range("b12").Value + 1
end if
end if
end if
i = i + 1
loop


Ps : Je ne peux pas joindre le fichier il contient uniquement des données confidentielles ...

Merci pour votre aide.