VBA - Recherche valeur format Date

Bonjour,

J'aimerais créer une macro qui me permet de retrouver cette date dans un classeur "X" Feuille "Juillet".

Sub Recherche()

'Lundi affiche le Lundi de la semaine dernière!

Dim Lundi As Date
Lundi = Date - Weekday(Date, vbUseSystemDayOfWeek) - 6

Application.Workbooks.Open "C:\X.xls"
ActiveWorkbook.Sheets("Juillet").Activate

End Sub

Je précise que dans ma feuille Juillet, les dates sont bien sous la forme dd/mm/yyyy