Sub suppr()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
Dim plg
Dim derl, l As Long
Dim duree As Date
debut = Time
derl = Range("A" & Rows.Count).End(xlUp).Row
plg = Range("A1:A" & derl)
For l = UBound(plg) To LBound(plg) Step -1
If plg(l, 1) Like ("*Référence*") Then
plg(l, 1) = Empty
plg(l + 1, 1) = Empty
plg(l - 1, 1) = Empty
plg(l - 2, 1) = Empty
plg(l - 3, 1) = Empty
plg(l - 4, 1) = Empty
plg(l - 5, 1) = Empty
plg(l - 6, 1) = Empty
plg(l - 7, 1) = Empty
plg(l - 8, 1) = Empty
plg(l - 9, 1) = Empty
plg(l - 10, 1) = Empty
plg(l - 11, 1) = Empty
l = l - 11
End If
Next
Range("A1:A" & derl).Clear
Range("A1:A" & derl) = plg
With Application
.ScreenUpdating = False
.Calculation = xlCalculationAutomatic
End With
Fin = Time
duree = Fin - debut
MsgBox duree
End Sub