bonjour macello, le forum
tu peux essayer ce type de code :
Public Sub lundi()
Dim Jour As Date
Dim semaine As Byte
semaine = InputBox('semaine ?')
Jour = DateSerial(Year(Date), 1, 1)
MsgBox CDate(IIf(Jour > 5, Jour - Weekday(Jour) + 2, Jour - Weekday(Jour) - 5) + 7 * semaine)
End Sub
salut