Problème VLookUp et format critère

Bonjour le forum

Voilà que je tourne en rond depuis plusieurs heures sur quelque chose qui me semble pourtant très simple !

Je souhaite faire un recherche v avec pour critère de recherche une date. Cette date en question est obtenue via une formule et c'est de là que viens mon problème, comme si le "format" obtenu ne correspond pas à ce qui se trouve dans la feuille Excel.

Voilà ci-dessous le principe que j'utilise pour arriver à mes fin :

NoSem = Me.TextBox2
Annee = Year(Me.TextBox1)
Date1 = 7 * NoSem + DateSerial(Annee, 1, 3) - WorksheetFunction.Weekday(DateSerial(Annee, 1, 3)) - 5

With Feuil1
    Msgbox WorksheetFunction.VLookup(Date1, .Range("A2:E" & .Range("A65000").End(xlUp).Row), 2, False)
End With

Par avance, merci de l’intérêt porté au sujet

Slt GGautier,

t'as essaié CDate(Date1) ?

ou CDbl(CDate(Date1)) ?

ou CLng(CDate(Date1)) ?

Effectivement je viens de tester aussi de mon coté CDbl et ça fonctionne ! Merci