Option Explicit
Sub Quadrillage_supprimer()
Range("b19").Name = "ici"
Cells.Find(What:="Arrêté l*", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Offset(-4, 0).Name = "là"
With Range("ici:là").Offset(, 0).Resize(, 15)
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
End With
With ActiveWorkbook: .Names("ici").Delete: .Names("là").Delete: End With
End Sub