Bonjour j ai le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim i As Long
With Workbooks("dt.xls").Worksheets("base")
i = [E65536].End(xlUp).Row
Do While i >= 1
    If Cells(i, 20).Value = "objet vendu" Then Cells(i, 1).EntireRow.Delete
    i = i - 1
Loop
'
End With
mais egalement celui ci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim i As Long
With Workbooks("dt.xls").Worksheets("base")
i = [E65536].End(xlUp).Row
Do While i >= 1
    If Cells(i, 21).Value = "objet neuf" Then Cells(i, 1).EntireRow.Delete
    i = i - 1
Loop
'
End With
J aimerai créer une boite de dialogue qui me dise: "Quelle ligne voulez vous supprimer? avec le choix entre Objet neuf et Objet à vendre.

Merci d'avance pour votre aide.

Bien cordialement et longue vie au forum