Option Explicit
Sub Archiver()
Dim quand As Date, i As Long, ii As Long
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Sheets("suivi").Activate
On Error Resume Next
quand = Date - 11
ii = 2
For i = 2 To Range("k65535").End(xlUp).Row
If Cells(i, 11) <= quand Then
With Cells(i, 11)
.Offset(, -10).Resize(, 18).Cut Destination:=Sheets("Archives").Range("a" & Rows.Count).End(xlUp)(2)
End With
ii = ii + 1
End If
Next i
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub