[COLOR="DarkSlateGray"]Sub Classeurs_de_la_semaine()
Dim i As Long, m As String, d As String, s As Date
m = [C4]
d = [C5]
s = [C2]
Application.ScreenUpdating = False
Workbooks.Open Filename:=m, Editable:=True
For i = 0 To 6
With ActiveWorkbook
[B].Worksheets(1).[A1] = Format(s + i, "dddd d mmmm yyyy")[/B]
.SaveAs Filename:=[COLOR="Red"][B]d &[/B][/COLOR] Format(s + i, "dd mmmm yyyy") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End With
Next i
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub[/COLOR]