Supprimer cellule par raport a une selection inversse [ Résolu ]

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
    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

=MAX(A:A)

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

Range("toto") = 1

Sub a()
MsgBox Rows("38:" & Range("a_classer").Areas.Item(2).Row - 1).Address
End Sub

Private Sub CommandButton2_Click()
Dim Zone As Range, Tableau
On error goto 0
Set Zone = Intersect(ActiveSheet.UsedRange, Columns("A:N")) 'La zone qui doit être traitée
Range("a_classer").Select
With Zone
    Tableau = .Value 'On garde les valeurs des col A à N dans un tableau
    .Value = 1 ' On met des 1 partout
    Selection.ClearContents 'Sauf dans la sélection (donc dans a_classer)
    .SpecialCells(xlCellTypeConstants, 23).Select 'On sélectionne ce qui n'est pas vide (donc tout sauf la plage a_classer)
    .Value = Tableau ' et on remet les valeurs d'origine
    Selection.entirerow.delete 'et y a plus qu'à tailler dans le gâteau
End With
0 End Sub