Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i, dat As Date
Application.EnableEvents = False
On Error Resume Next 'sécurité
With Sheets(1)
.[D2] = UCase(Replace(Replace(Replace(LCase(.[D2]), "fev", "fév"), "aou", "aoû"), "dec", "déc"))
dat = .[B2] & " " & .[D2] & " " & .[E2]
End With
For i = 2 To 6
With Sheets(i)
.Cells(2, 2) = Day(dat + i - 1) 'jour
.Cells(2, 4) = UCase(Format(dat + i - 1, "mmmm")) 'mois
.Cells(2, 5) = Year(dat + i - 1) 'année
End With
Next
Application.EnableEvents = True
End Sub