Sub Annuler()
Range("C9:C12,C15:C16,C19:C20,C22:C24,C26:C28,F9:F12,F15:F16,F19:F20,F22").FormulaR1C1 = "-"
Range("C10").ClearContents
Range("C9").Select
End Sub
Sub Enregistrer_Nouveau()
Application.ScreenUpdating = False
Sheets("Base_CA").Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Nouveau").Rows("2:2").Copy
Sheets("Base_CA").Range("A2").PasteSpecial Paste:=xlPasteValues
Sheets("Base_CA").Range("A2").PasteSpecial Paste:=xlPasteFormats
Annuler
Application.ScreenUpdating = True
End Sub