Sub Macro1()
Dim premierLundi, i As Integer, y As Integer, z As Integer
premierLundi = DateSerial(2009, 1, 5) - Weekday(DateSerial(2009, 1, 3))
For i = 1 To 3
[COLOR="Red"][B]Sheets("Masque").Copy[/B][/COLOR] After:=Worksheets(Sheets.Count)
ActiveSheet.Name = "Sem" & i
For y = 1 To 6
Range("A1").Cells(134, y) = CDate(premierLundi) + z
z = z + 1
Next y
Range("A1").NumberFormat = "dddd d mmmm"
z = z + [COLOR="Red"][B]1[/B][/COLOR]
Range("G1").Value = "Sem" & i
Next i
End Sub