Sub CreerOffres()
Dim nbSemaine As String
nbSemaine = Cells(1, 1)
Repertoire = "c:\SEM." & nbSemaine
MkDir Repertoire
For Each sh In ActiveWorkbook.Sheets
sh.Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveWorkbook.SaveAs Filename:=Repertoire & "\UNIFLEURS - PHOTOS SEM" & nbSemaine & " " & sh.Name, FileFormat:=-4143, CreateBackup:=False
ActiveWorkbook.Close
Next
End Sub