Bonjour Laurent, Le Forum
Tu as la une boucle do loop qui ne sert à rien mais ton problème vient du fait qu'en supprimant la ligne de cel, c'est la ligne suivante qui prend ses références. Quand la boucle saute, la référence ayant déja été testée cel est affecté à la cellule d'aprés. En conséquence, ton code supprime une ligne sur 2.
Tu peux contourner en commençant ton test sur la dernière cellule.
Quand celle ci sera supprimée, ce sera la cellule suivante qui prendra ses références alors que la boucle tournera sur la cellule précédente, donc plus de problème.
Cordialement, A+
Application.ScreenUpdating = False
Dim cel As Range, Compteur As Long
For Compteur = 65535 To 1 Step -1
If Range("A" & Compteur).Value = "PCI Dump" Then
Range("A" & Compteur).EntireRow.Delete
End If
Next Compteur
MsgBox "fini"