Sub supLignesRapide()
Application.ScreenUpdating = False
Columns("V:V").Insert Shift:=xlToRight
Range("V2:V" & [U65000].End(xlUp).Row).FormulaR1C1 = "=IF(and(RC[3]="""",RC[4]="""",RC[5]="""",RC[6]="""" ) ,""sup"",0)"
[V:V].Value = [V:V].Value
[U2].CurrentRegion.Sort Key1:=Range("v2"), Order1:=xlAscending, Header:=xlGuess
On Error Resume Next
Range("V2:V65000").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
Columns("V:V").Delete Shift:=xlToLeft
End Sub