Sub samdim()
x = Date
lundi = Date - Weekday(Date, 2) + 1
For i = 1 To 7
If Weekday(lundi + i, 2) > 5 Then
MsgBox Format(lundi + i, "dddd dd mmmm"), vbExclamation, "Samedi ou dimanche"
Else
MsgBox lundi + i, vbCritical, "Ni samedi, ni dimanche"
End If
Next
End Sub