Option Explicit
Sub Button1_Click()
Dim DerLig As Integer
'Il faut d'abord déprotéger toutes les cellules de la feuille par le menu Accueil--> Format--> Format de cellule
ActiveSheet.Unprotect
DerLig = Range("A" & ActiveSheet.Cells.Rows.Count).End(xlUp).Row
Range("A1:T" & DerLig).Locked = True
ActiveSheet.Protect
End Sub