Cette leçon combine un tableau (Array), un tableau de totaux et une boucle imbriquée pour additionner automatiquement les dépenses de chaque catégorie budgétaire, sans écrire une condition séparée pour chacune.

Sub RepartirDepensesParCategorie()
    Dim categories As Variant
    Dim totaux(0 To 2) As Double
    Dim i As Integer, j As Integer

    categories = Array("Fournitures", "Déplacement", "Formation")

    For i = 2 To 10
        For j = 0 To 2
            If Cells(i, 2).Value = categories(j) Then
                totaux(j) = totaux(j) + Cells(i, 3).Value
            End If
        Next j
    Next i

    MsgBox "Fournitures : " & totaux(0) & " $"
End Sub

Pour chaque ligne de dépense, la boucle intérieure compare la catégorie indiquée en colonne B à chaque nom du tableau categories ; en cas de correspondance, le montant en colonne C est ajouté au total à la même position dans le tableau totaux.

À vous de jouer : adaptez cette macro pour afficher le total des trois catégories dans un seul message, pas seulement "Fournitures".