Cette leçon combine un tableau (Array), un tableau de compteurs et une boucle imbriquée pour dénombrer automatiquement combien d'employés appartiennent à chaque département, sans écrire une condition séparée pour chacun.

Sub CompterParDepartement()
    Dim departements As Variant
    Dim compteurs(0 To 2) As Integer
    Dim i As Integer, j As Integer

    departements = Array("Ventes", "Production", "Support")

    For i = 2 To 10
        For j = 0 To 2
            If Cells(i, 2).Value = departements(j) Then
                compteurs(j) = compteurs(j) + 1
            End If
        Next j
    Next i

    MsgBox "Ventes : " & compteurs(0) & vbNewLine & "Production : " & compteurs(1) & vbNewLine & "Support : " & compteurs(2)
End Sub

La boucle extérieure parcourt chaque employé, et pour chacun, la boucle intérieure compare son département (colonne B) à chaque nom du tableau departements ; en cas de correspondance, le compteur à la même position s'incrémente — un seul jeu de boucles couvre n'importe quel nombre de départements, sans If répété pour chacun.

À vous de jouer : ajoutez un quatrième département au tableau departements et redimensionnez le tableau compteurs en conséquence.