' modification du code pour enregistrement sans macro
Sheets("SAISIE").Unprotect
Sheets("Modele").Visible = True
Sheets("SAISIE").Select
Range("B15:K59").Select
Selection.Copy
Sheets("Modele").Select
Range("B15:K59").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=0
Sheets("SAISIE").Select
Range("C12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modele").Select
Range("C12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("SAISIE").Select
Range("I5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modele").Select
Range("I5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("SAISIE").Select
Range("G6").Select
Selection.Copy
Sheets("Modele").Select
Range("G6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=0
Sheets("SAISIE").Select
Range("J6").Select
Selection.Copy
Sheets("Modele").Select
Range("J6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=0
Sheets("SAISIE").Select
Range("G8").Select
Selection.Copy
Sheets("Modele").Select
Range("G8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=0
Sheets("SAISIE").Select
Range("H9").Select
Selection.Copy
Sheets("Modele").Select
Range("H9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=0
Sheets("SAISIE").Select
Range("G10").Select
Selection.Copy
Sheets("Modele").Select
Range("G10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=0
Sheets("SAISIE").Select
Range("H12").Select
Selection.Copy
Sheets("Modele").Select
Range("H12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=0
Sheets("Modele").Copy
Nom_fichier = Sheets("Modele").Range("G6") & " " & Sheets("Modele").Range("J6") & " " & Sheets("Modele").Range("g8")
ActiveWorkbook.SaveAs DossierSauvegarde2 & Nom_fichier & " ", FileFormat:=-4143, CreateBackup:=False
ActiveWorkbook.SaveAs DossierSauvegarde3 & Nom_fichier & " ", FileFormat:=-4143, CreateBackup:=False
Application.CutCopyMode = False
ActiveWorkbook.Close
Sheets("Modele").Visible = False
Sheets("Model").Visible = False
Sheets("SAISIE").Select
Range("C12").Select
Sheets("SAISIE").Protect
Application.ScreenUpdating = True