Bonjour tout le monde.
Voila je suis tres novice en VBA sous excel et j'aurais besoin de votre aide s'il vous plait.

Voila j'ai une feuille excel contenant plus de 500 avec plusieur ellement qui ce repete.
Je voudrais faire une tri en supprimant les doublons tous en comptant le nombre de ligne qu'il y avais de cette catégorie.
Pour le moment j'arrive a faire le tri ma pas a comptabilisé.
Exemple
fichier origine
GENERAL -
GENERAL -
GENERAL APPLI - CENTRALE/-
GENERAL APPLI - CENTRALE/-
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL

je voudrais obtenir
-
APPLI - CENTRALE/-
APPLI - CENTRALE/ACTEUR STRUCTURE/CST
APPLI - CENTRALE/ACTEUR STRUCTURE/CTU

Avec le nombre de ligne qu'il y a pour chaque catégorie.

Code que j'ai deja
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Tri()
' Variable
ligne = 1
valeur = ""
calcul = 1
nombre = 1
 
' Tri
While Range("A" & ligne).Value <> ""
 
    If Range("B" & ligne).Value <> valeur Then
        valeur = Range("B" & ligne).Value
            Sheets("Feuil2").Range("A" & calcul) = valeur
            calcul = calcul + 1
            nombre = 1
 
      Else
      nombre = nombre + 1
 
      'Sheets("Feuil2").Range("B" & calcul) = Sheets("Feuil2").Range("B" & calcul) + 1
 
 
 
   End If
        ligne = ligne + 1
 
Wend
MsgBox "Fin du traitement"
End Sub
Merci pour votre aide