Sub test()
Dim x As Range
Set x = Range("A:A").Find("test", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then Rows(x.Row - 3 & ":" & x.Row + 3).Delete
End Sub
Option Explicit
Sub test()
Dim x As Range
With Worksheets(1).Range("A:A")
Set x = .Find("autorite imputee", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
Do
Rows(x.Row - 3 & ":" & x.Row + 8).Delete
Set x = .FindNext()
Loop While Not x Is Nothing
End If
End With
End Sub