Trier une colonne et compter les elements

Option Explicit

Dim c As Object
Dim i As Integer

Sub moniteur()
Application.ScreenUpdating = False
i = 1
Sheets("Feuil3").Select
Range("E2:F65536").ClearContents

Range("E2:F65536").ClearContents
' Sheets("Feuil1").[A:A].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[E1], unique:=True
For Each c In Range("a1", [a65536].End(3))

If c.Value Like "*MONITEUR*" Then
Sheets("Feuil3").Cells(i + 1, 5) = c
Sheets("Feuil3").Cells(i + 1, 6) = Application.CountIf([Data], c)
End If
i = i + 1
Next
Sheets("Feuil3").Range("E2:F65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[h1], unique:=True

' Selection.Sort Key1:=Range("h1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Feuil3").[e:f].AdvancedFilter Action:=xlFilterCopy, unique:=True

Sheets("Feuil3").Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...