Salut Cordia5
Voici la nouvelle fonction recherchée
Function Somme_CouleurVille(PlageAddition As Range, Cell_couleur As Range, PlageVille As Range, Ville As Range)
'Définition des variables
Dim Cell As Range, i As Integer, Lig As Long
'Volatile permet de recalculer la fonction à chaque recalcul de la feuille.
Application.Volatile
' Initialisation du compteur
i = 0
' Pour chaque cellule de la plage à additionner
For Each Cell In PlageAddition
' Récupérer la ligne
Lig = Cell.Row
' Tester la couleur et la ville
If Cell.Interior.ColorIndex = Cell_couleur.Interior.ColorIndex _
And Cells(Lig, PlageVille.Column) = Ville Then
' Si ok pour les 2, ajouter 1
i = i + 1
End If
Next
' Retourner la valeur
Somme_CouleurVille = i
End Function
Et le fichier modifié