Suppression de lignes

Bonjour à Tous

J'ai créer une macro qui insère des lignes (pages 2, 3, Ect...) puis une autre qui les supprimes

je souhaiterai votre aide, quand je supprime les lignes correspondante à l'ajout de la page 2, 3 Ect....

que celle-ci m'empêche la suppression des lignes 1 à 49 correspondant à la page 1 avec un message alerte

"Vous avez un page"

Merci pour votre aide

Bonne journée

Bonjour,

Pour le principe.

Cdlt.

Public Sub Delete_rows()
Dim lastRow As Long, rng As Range
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        If lastRow > 49 Then
            Set rng = .Cells(lastRow, 1).Offset(-25).Resize(18)
            rng.EntireRow.Delete
        End If
    End With
End Sub

Bonjour Jean Eric

Et merci pour cette solution c'est parfait

Est ce possible de la commenter ?

Merci d'avance