Un essai en additionnant tout en colonne B. Il faut faire un double clic sur la cellule C7 (Ajouter) :
Budget familial 2026.xlsm (136,2 Ko).
PS. Pour que la macro puisse s’exécuter, la première fois, va dans l’explorateur de fichiers, repère le classeur (normalement dans le dossier « Téléchargements »). Fais un clic droit dessus, clique sur « Propriétés » :
Coche la case « Débloquer » :
La macro :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Mt As Variant, L1 As Variant, L2 As Variant
Cancel = True
If Target.Address <> "$C$9" Then Exit Sub
If [C5] = "" Or [C6] = "" Then Exit Sub
If Not IsNumeric([C7]) Then Exit Sub
With Sheets("Toutes les dépenses")
L1 = Application.Match([C5], .[A:A], 0)
If Not IsNumeric(L1) Then
MsgBox "Catégorie " & [C5] & " non trouvée"
Exit Sub
End If
L2 = Application.Match([C6], .Cells(L1, 1).Resize(100), 0)
If Not IsNumeric(L2) Then
MsgBox "Sous catégorie " & [C6] & " non trouvée"
Exit Sub
End If
.Cells(L1 + L2 - 1, 2) = .Cells(L1 + L2 - 1, 2) + [C7]
End With
[C7] = ""
End Sub
Daniel