Re,
Idem précédemment avec une fonction personnalisée VBa à intégrer dans ton code.
Cdlt
Option Explicit
Public Function LundiSemaine(Année, Semaine)
If Année = "" Or Semaine = "" Then
LundiSemaine = ""
Exit Function
End If
LundiSemaine = (Semaine - 1) * 7 + DateValue("05/01/" & Année) _
- Weekday(DateValue("04/01/" & Année), vbMonday)
End Function