Sub Macro2()
Dim rep As Integer
rep = MsgBox("/!\ ATTENTION !!" & vbCrLf & "Toute modification ultérieure de cette page sera impossible." & vbCr & "Êtes-vous sûr de vouloir continuer ?", vbYesNo)
If rep = vbNo Then Exit Sub
If rep = vbYes Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next
ActiveSheet.Unprotect "toto"
Range(Cells(1, 1), Cells([K65000].End(xlDown).Row, 11)).Locked = True
Range("D163:J167").Locked = False
Range("D23:J23").Font.ColorIndex = 3
Range("K23").Font.ColorIndex = 2
ActiveSheet.Protect "toto"
ActiveSheet.EnableSelection = xlUnlockedCells
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End If
End Sub