Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Or Target.Address = "$B$2" Then
Dim jan04 As Date
Dim PremierLundi As Date
Dim LundiSemaine As Date
With ActiveSheet
numsem = .Cells(2, 1)
année = .Cells(2, 2)
'Calcul du lundi de la 1ere semaine de l'année a partir du
'4 janvier qui est toujours dans la semaine 01 (iso8601)
jan04 = "04/01/" & année
PremierLundi = jan04 - (Weekday(jan04, vbMonday) - 1)
'Lundi de la semaine demandée
LundiSemaine = PremierLundi + ((numsem - 1) * 7)
For i = 0 To 6
.Cells(2, 3 + i) = LundiSemaine + i
Next i
End With
End If
End Sub