Recherche de valeur et suppression de ligne

[elrycs]

Bonjour à tous,

Je cherche un coup de main pour corriger le code suivant :

Sub xls_help()

Dim i As Long
Dim c As Range


Application.ScreenUpdating = False

Sheets("feuil1").Select

Set c = ActiveCell

Sheets("feuil2").Select

For i = [B65536].End(xlUp).Row To 2 Step -1

If Cells(i, 2) = c Then

rep = MsgBox("suppression?" & c, vbYesNo + vbExclamation, "Avertissement")

If rep = vbYes Then

Rows(i).EntireRow.Delete

On Error Resume Next

End If

Next i

Else
Exit Sub
End If

Sheets("feuil1").Select

If Err Then MsgBox "pas de ligne à supprimer", vbCritical

End Sub

En gros : je sélectionne une cellule sur la première feuille et toutes les lignes de la feuil2 dont la valeur correspond dans la colonne B, sont supprimées (avec un message de confirmation de suppression et un au cas ou il n'y a rien à supprimer).

La boucle de suppression fonctionne, mais des que je rajoute les msgbox, c'est le drame 🙂

Merci pour votre aide.