Sub supLignesRapide()
Application.ScreenUpdating = False
A = Range("z2:z" & [z65000].End(xlUp).Row)
For i = LBound(A) To UBound(A)
If A(i, 1) <> 2011 Then A(i, 1) = 0 Else A(i, 1) = "sup"
Next i
Columns("aa:aa").Insert Shift:=xlToRight
[aa2].Resize(UBound(A)) = A
[A2].CurrentRegion.Sort Key1:=Range("aa2"), Order1:=xlAscending, Header:=xlGuess
On Error Resume Next
Range("aa2:aa65000").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
Columns("aa:aa").Delete Shift:=xlToLeft
End Sub