Sub Wks3Wbk()
Dim NWBK As Workbook
Dim NewM As Object, NewCode As String
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
NewCode = .Lines(1, .CountOfLines)
End With
Sheets("reception FOS").Unprotect ("Password01")
Sheets("reception FOS").Copy: Set NWBK = ActiveWorkbook
Set NewM = ActiveWorkbook.VBProject.VBComponents.Add(1)
With ActiveWorkbook.VBProject.VBComponents(NewM.Name).CodeModule
.AddFromString NewCode
End With
NWBK.SaveAs "c:\\Reception\" & A4 & B4 & " du " & Format(Now - 1, "dd-mm-yyyy") & ".xlsm", FileFormat:=52: NWBK.Close False
Application.ActivePrinter = "***** sur Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("reception FOS").Protect ("Password01")
End Sub