Sub delete_9()
Dim deb As Range, fin As Range
With Feuil1.Columns(5)
Set deb = .Find(9, after:=.Cells(Rows.Count, 1), searchdirection:=xlNext)
Set fin = .Find(9, after:=.Cells(1, 1), searchdirection:=xlPrevious)
If Not deb Is Nothing Then .Range(deb, fin).EntireRow.delete
End With
End Sub