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