Dim aa
Do
aa = InputBox("Saisir la date du mois jj/mm/aaaa", _
"Date mois", Format("dd/mm/yyyy"))
If IsDate(aa) Then Exit Do
MsgBox "Date obligatoire"
Loop
If IsDate(aa) Then Sheets("Récap").Range("E1").Value = CDate(aa)
Sheets("Récap").Range("B3") = Year(CDate(aa))
Dim anneeprec&
anneeprec = DateAdd("yyyy", -1, CDate(aa))
Sheets("Récap").Range("D3").Value = anneeprec
Range("B11").Value = DatePart("ww", Range("E1"))
Range("B19").Value = DatePart("ww", Range("E1") + 7)
Range("B27").Value = DatePart("ww", Range("E1") + 14)
Range("B35").Value = DatePart("ww", Range("E1") + 21)
Range("B43").Value = DatePart("ww", Range("E1") + 28)
datedeb = CDate(Range("E1") - Weekday(Range("E1"), 2) + 1)
For Each c In Range("B4:B43")
If c = "" Then
c.Value = Day(datedeb + i)
i = i + 1
End If
Next
Range("D11").Value = DatePart("ww", anneeprec)
Range("D19").Value = DatePart("ww", anneeprec + 7)
Range("D27").Value = DatePart("ww", anneeprec + 14)
Range("D35").Value = DatePart("ww", anneeprec + 21)
Range("D43").Value = DatePart("ww", anneeprec + 28)
datedebprec = CDate(Range("D3") - Weekday(Range("D3"), 2) + 1)
For Each c In Range("D4:D43")
If c = "" Then
c.Value = Day(datedebprec + i)
i = i + 1
End If
Next