Supprimer ligne avec message avant

bonjour

y a t il une possbilité d'afficher un message avant de supprimer les lignes par bouton

je voudrais que ce message 'désirez vous supprimer les lignes clôturées'donne le choix entre OUI et NON

si non rien ne se passe

merci d'avance

Bonjour,

A essayer

Sub aa()
Dim DerLig As Long, i As Integer
Dim Suppression As Integer
Application.ScreenUpdating = False
Suppression = MsgBox("Voulez vous supprimer les lignes cloturées ?" & _
Chr(10), _
vbYesNo + vbQuestion, "Supprimer les lignes ?")
If Suppression = vbYes Then

DerLig = Range("A" & Rows.Count).End(xlUp).Row

For i = 11 To DerLig
    If Range("P" & i) = "" Then Range("Q" & i) = "x"
Next i

Range("Q11:Q" & DerLig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Range("Q:Q").ClearContents
End If

End Sub

Cdlt

exactement

merci bcp

un petit problème cependant si oui

debug>

Range("Q11:Q" & DerLig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

pour info j'ai des filtres sur g h i k l m n o p q

ceci explique peut être cela

autant pour moi

le message est : erreur 1004

pas de cellulles correspondantes

encore une erreur il s'agit de la colonne R si celle ci est remplie donc en cliquant sur le bouton supprimer un message au préalable indique la fonction de ce bouton.

voilà desolé et merci si vous pouvez faire la rectification

bonne journéee