Option Explicit
Sub Lignes_supprimer()
Application.ScreenUpdating = 0
With Sheets("suivis")
.[a1].AutoFilter Field:=1, Criteria1:=Sheets("Feuil1").Range("f7").Value, Operator:=xlAnd
.Rows("3:" & Rows.Count).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.[a1].AutoFilter
End With
Application.ScreenUpdating = -1
End Sub