nombre de citations

Sub Macro1()
Dim cel As Range 'déclare la variable cel
Dim pl As Range 'déclare la variable pl
 
Set pl = Range("A1:A" & Range("A65536").End(xlUp).Row) 'définit la variable pl
 
For Each cel In pl 'boucle sur toutes les cellules de la plage pl
    'affiche en colonne D le nombre d'occurrences du mot dans la plage pl
    cel.Offset(0, 3).Value = Application.WorksheetFunction.CountIf(pl, cel.Value)
Next cel 'prochaine cellule de la plage
 
'tri en fontion du nombre d'occurrence décroissant et par ordre de valeur associé décroissant
Range(pl, pl.Offset(0, 3)).Sort Key1:=Range("D1"), Order1:=xlDescending, Key2:=Range("B1") _
    , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
    False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
    :=xlSortNormal
 
pl.Offset(0, 3).ClearContents 'efface la colonne D
End Sub