Sub CreeJoursSemaineEnCours()
Dim i As Byte, pl, jour
Mois = Month(Date)
Application.ScreenUpdating = False
pl = Date - (Weekday(Date, 2) - 1)
For i = 0 To 6
jour = pl + i
Sheets(1).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(jour, "ddd d mmmm")
ActiveSheet.Range("B5") = jour
Next i
End Sub