Bonjour,
Désolé il va falloir que j'étudie un peu plus le On Error Go To, cependant, une alternative qui fonctionne tout de même ! Si pas de ligne supprimée vous avez tout de même le message box qui apparaît et confirme l'absence de suppression de lignes.
Sub SUPPR()
Dim LR_I%, LR_F%
With Worksheets("Feuil1")
LR_I = .Cells(.Rows.Count, 2).End(xlUp).Row
.[B3].AutoFilter Field:=1, Criteria1:="x"
On Error Resume Next
.Range("A4:C" & LR_I).Cells.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilterMode = False
LR_F = .Cells(.Rows.Count, 2).End(xlUp).Row
MsgBox LR_I - LR_F & " ligne(s) ont été supprimée(s)", vbInformation
End With
End Sub
Cdlt,