Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Liens_CR").Visible = True
Sheets("Liens_CR").Activate
Sheets("Liens_CR").Rows("15:15").Copy destination:=Sheets("Liens_CR").Rows("10:10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Liens_CR").Visible = False
Sheets("Page garde").Activate
End Sub