Sub essai()
Range("c3:c" & [A65000].End(xlUp).Row).FormulaR1C1 = "=RC[-1]>0"
Range("a3:c" & [A65000].End(xlUp).Row).Sort key1:=[C3], key2:=[A3], Header:=xlNo
Cells(Application.Match(True, [C:C], 0), 1).Resize(, 2).Borders(xlEdgeTop).Weight = xlThin
Range("c3:c" & [A65000].End(xlUp).Row).ClearContents
End Sub