Trier une colonne et compter les elements

[XIBOOX]

Bonsoir
j'ai un petit soucis de macro
dans la colonne A j'ai mis tous mon matériel informatique
et j'aimerai distinguer et quantifier chaque matériel selon leurs catégories
par colonne par exemple colonne E moniteur
colonne f la quantité moniteur
etc...
voici mon code :

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

le seul hic c'est que je n'arrive pas a la classer dans la colonne E sans doublon et sans cellule vide ....
ci joint mon fichier pour test

 

[XIBOOX]

Re : Trier une colonne et compter les elements

c'est resolu