Sub triColonne(noColonneTri As Integer, premiereLigne As Integer)
With ActiveSheet
.Columns(noColonneTri + 1).Insert
For i = premiereLigne To .Cells(.Rows.Count, noColonneTri).End(xlUp).Row
.Cells(i, noColonneTri + 1).FormulaR1C1 = "=COUNTIF(C[-1],""=""&RC[-1])"
Next i
.Range(.Cells(premiereLigne, 1), .Cells(.Rows.Count, 1).End(xlUp)).EntireRow.Sort key1:=.Cells(premiereLigne, noColonneTri + 1), order1:=xlDescending, key2:=.Cells(premiereLigne, noColonneTri), order2:=xlAscending
.Columns(noColonneTri + 1).Delete
End With
End Sub
Sub test()
triColonne 1, 2
End Sub