Sub Comptage()
Dim d As Integer, l As Integer, Dep(1 To 99)
' Pour n° de département = 1 à 99, on vide le tableau de comptage des noms
For d = 1 To 99
Dep(d) = 0
Next
' Pour ligne = 6 à dernière ligne occupée de la colonne C
For l = 6 To Range("C65536").End(xlUp).Row
' Si le n° de département contenu dans la ligne l n'est pas vide, on comptabilise +1 dans
' le tableau de comptage, au n° de département correspondant
If Not IsEmpty(Cells(l, 4)) Then Dep(Cells(l, 4)) = Dep(Cells(l, 4)) + 1
Next
' On se repositionne en ligne 6
l = 6
' Ensuite, on parcours le tableau de comptage et chaque fois que le comptage d'un département n'est pas = 0
' alors on écrit le n° de département et le nombre de noms dans les colonnes F et G
For d = 1 To 99
If Dep(d) > 0 Then
Cells(l, 6) = d
Cells(l, 7) = Dep(d)
l = l + 1
End If
Next
End Sub