Bonjour Yannsb, Tulipe_4,
@Yannsb, ne pas oublier d'indiquer la version d'Excel utilisée.
Et effectivement comme souligné par Tulipe_4 un fichier posté aurait été mieux.
Voici un premier exemple de programme permettant de classer les activités et donc ensuite de déduire les + représentées.
Sub RechPlace()
Dim Act As Variant
Range("C:AC50000").ClearContents
'Boucle sur toutes les lignes d'activités en colonne B. Exemple ici sur 4 lignes
For L = 1 To 4
Act = Split(Cells(L, "B"), ",")
'Boucle sur les activités présentes dans une ligne
For T = 0 To UBound(Act)
'Recherche de l'initiale de l'activite et place l'activité dès colonne 3 à +
Col = VBA.Asc(Mid(Act(T), 2, 1)) - 62
Lig = Cells(50000, Col).End(xlUp).Row
'Conserve l'activité sur la feuille dès ligne 2 sans guillemets.
Cells(Lig + 1, Col) = Replace(Act(T), """", "")
Next T
Next L
'Une fois réalisé possibilité de faire un tri par activités (indiquez une en-tête) selon colonne d'initiale
'Puis un sous-total par activités
End Sub