Public MemTop As Double
Public MemLeft As Double
Public newdate As Date, an As Integer, mois As Integer
Public Toto As Object
'Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Function lundi(mois, annee)
For n = CDate("01/" & mois & "/" & an) To CDate("07/" & mois & "/" & an)
If Weekday(n, vbMonday) = 1 Then lundi = n - 7
Next
End Function