Sub Suppr()
Dim p As Range
On Error Resume Next
Set p = Columns(1).Cells.Find("asp")
Rows("1:" & p.Row - 1).EntireRow.Delete
End Sub
Sub Suppr_v2()
On Error Resume Next
Cells(1).Resize(Columns(1).Cells.Find("asp").Row - 1).EntireRow.Delete
End Sub
Abusons, abusons...Sans vouloir abuser, comment pourrais je faire la même chose mais en dessous d'une cellule contenant une valeur?
Sub Suppr_Sous()
Dim n&
n = Application.IfError(Application.Match("asp", Columns(1), 0), Rows.Count)
If n < Rows.Count Then Range(Cells(n + 1, 1), Cells(Rows.Count, 1)).EntireRow.Delete
End Sub
Sub Suppr_v3()
On Error Resume Next
Range(Cells(Rows.Count, 1), Columns(1).Cells.Find("asp").Offset(1)).EntireRow.Delete
End Sub