Compteurs avec incréments

[Fab]

Bonjour,
J'ai un tableau où dans la colonne "C" j'indique la catégorie et dans la colonne "G" le montant associé.
Je souhaite faire une macro, qui va dans la colonne "Ci" et selon la catégorie incrémente le compteur associé à cette catégorie avec le montant indiqué dans la colonne "Gi".
J'ai essayé avec :

' Définitions des compteur
Dim Electronique, Mobilier, Luminaire, Divers, Habit, AppareilMenager, Vehicule, Logiciel, Jouet, Outil, ErreurCategorie
Dim i


' Mise à zéro des compteurs
Electronique = Mobilier = Luminaire = Divers = Habit = AppareilMenager = Vehicule = Logiciel = Jouet = Outil = ErreurCategorie = 0


' Comptage dans la première pièce : Salon
Sheets("Salon").Select
For i = 6 To 200
If Range("D" & i).Value = "Electronique" Then
Electronique = Electronique + Range("D" & i).Value
Else
If Range("D" & i).Value = "Mobilier" Then
Mobilier = Mobilier + Range("D" & i).Value
Else
If Range("D" & i).Value = "Luminaire" Then
Luminaire = Luminaire + Range("D" & i).Value
Else
If Range("D" & i).Value = "Divers" Then
Divers = Divers + Range("D" & i).Value
Else
If Range("D" & i).Value = "Habit" Then
Habit = Habit + Range("D" & i).Value
Else
If Range("D" & i).Value = "Appareil ménager" Then
AppareilMenager = AppareilMenager + Range("D" & i).Value
Else
If Range("D" & i).Value = Véhicule Then
Vehicule = Vehicule + Range("D" & i).Value
Else
If Range("D" & i).Value = "Logiciel" Then
Logiciel = Logiciel + Range("D" & i).Value
Else
If Range("D" & i).Value = "Jouet" Then
Jouet = Jouet + Range("D" & i).Value
Else
If Range("D" & i).Value = "Outil" Then
Outil = Outil + Range("D" & i).Value
Else
ErreurCategorie = ErreurCategorie + Range("D" & i).Value
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next i

' Rappatriement des compteurs

Mais il plante.
Quelqu'un aurait-il un tuyau ?
Merci d'avance.

 

[Bernard]

Bonjour Fab

Un modèle d'une macro qui totalise les montants de chaque catégories.

J'espère que c'est cela que tu souhaitais ?

Cordialement

Bernard