Sub supLignesRapide2()
Application.ScreenUpdating = False
a = Range("u1:u" & [u65000].End(xlUp).Row)
For i = LBound(a) To UBound(a)
If a(i, 1) = 0 Then a(i, 1) = "sup" Else a(i, 1) = 0
Next i
Columns("v:v").Insert Shift:=xlToRight
[v1].Resize(UBound(a)) = a
[v1].CurrentRegion.Sort Key1:=Range("v2"), Order1:=xlAscending, Header:=xlGuess
On Error Resume Next
Range("v1:v65000").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
Columns("v:v").Delete Shift:=xlToLeft
End Sub
Sub sup0()
[u:u].Replace 0, ""
[u:u].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub