Sub Save_DOC()
Dim nom, c As Range
Sheets(Array("TRAME", "CYCLES", "calendrier", "Affectations")).Copy
ChDir "C:\Users\m.roblin\Desktop"
With ActiveWorkbook
.SaveAs Range("TRAME!B2").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
For Each c In Range("mois!A1:A12")
nom = c.Value
Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom
Next c
End With
End Sub