Private Sub CmdBtn1_Click()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "toto"
' ActiveSheet.Unprotect "toto" inutile
Sheets("2").Visible = True
Sheets("2").Select
ActiveSheet.Rows("2:59").Copy
ActiveWindow.SelectedSheets.Visible = False
'
Sheets("1").Select
ActiveSheet.Rows("57:57").Select
Selection.Insert Shift:=xlDown
'
' Rows("58:58").Select
' Application.CutCopyMode = False
'
ActiveSheet.Rows("59:59").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
'
ActiveSheet.Shapes("CmdBtn1").Select
Selection.Cut
Range("B57").Select
ActiveSheet.Protect "toto", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Password:="toto", structure:=True, Windows:=False
Application.ScreenUpdating = True
End Sub