VBA de lunes a semana

Weekday(date, [ firstdayofweek ])	' returns day of week [1-7]

' firstdayofweek:
'	vbUseSystem	0	API NLS parameter
'	vbSunday	1	[Default]
'	vbMonday	2
'	vbTuesday	3
'	vbWednesday	4
'	vbThursday	5
'	vbFriday	6
'	vbSaturday	7
VasteMonde