With WSNew 'à l'Origine
.Cells(1, 2) = 'Semaine : ' & Format(MyWeek, '00')
.Cells(1, 3) = 'Du ' & Format(MyMonday, 'DDDD DD MMMM') & ' au ' & Format(MyMonday + 6, 'DDDD DD MMMM YYYY')
For i = 0 To 6
.Cells(2, 2).Offset(0, i) = _
UCase(Left(Format(MyMonday, 'DDDD DD'), 1)) & _
Right(Format(MyMonday, 'DDDD DD'), Len(Format(MyMonday, 'DDDD DD')) - 1)
MyMonday = MyMonday + 1
Next
End With