Private Sub CommandButton2_Click()
Dim A
' ActiveSheet.Unprotect
A = Split(Range("a_classer").Address, ",") 'On reprend la fin de l'adresse de ta zone nommée
If Val(Mid(A(1), 4, InStr(A(1), ":") - 2)) - 1 > 37 Then Rows("38:" & Val(Mid(A(1), 4, InStr(A(1), ":") - 2)) - 1).Delete 'On récupère le num de la dernière ligne à effacer et on efface les lignes 38 à ce numéro trouvé.
'ActiveSheet.Protect Contents:=True, Scenarios:=True
End Sub