Premier et dernier jour de la semaine VBA

bonjour

je souhaite avoir le premier et dernier jour de la semaine en cours

pour le moment j'ai ceci pour le mois en cours

'************************
Dim dFirst As Date
Dim dLast As Date
'*********************************
dFirst = DateSerial(Year(Date), Month(Date), 1)
dLast = DateAdd("m", 1, dFirst) - 1
'************************************
MsgBox "Premier jour: " & dFirst & "  dernier jour: " & dLast
'*****************************

merci d'avance

Bonjour,

MsgBox Date - Weekday(Date, vbMonday) + 1
MsgBox Date - Weekday(Date, vbMonday) + 7

ric

merci ric