Comparaison de dates

Bonjour à tous,

Après avoir parcouru plusieurs forums sur le sujet de comparaison de dates, je ne parviens toujours pas à résoudre mon problèmes. Qui est celle-ci :
J'ai une colonne S (correspond aux dates de debut du projet) et la colonne T (les dates de fin de projet). Je souhaiterai extraire (ou exporter) dans un nouveau fichier excel que les dates (DateDebut <= (Aujourd'hui) et DateDeFin > Aujourd'hui).

En VBA :
Dim DateDeb As Date, DateFin As Date, DateCible As Date

DateCible = Date 'Aujourd'hui (exemple 19/01/2016)
For lg = 4 To Ligne

DateDeb = Workbooks(nomsource).Sheets(n).Range("S" & lg).Value
DateFin= Workbooks(nomsource).Sheets(n).Range("T" & lg).Value

'Cette condition qui ne fonctionnement pas

If (DateDeb <= Date) And (DateFin > DateCible) Then
Instruction

End if

Merci d'avancé et Cordialement.