Bonjour le fil, bonjour le forum,
Une proposition VBA si ça peut intéresser :
Sub Macro1()
Dim P As Worksheet
Dim AE As Variant 'déclare la variable AE (A Exclure)
Dim E As Worksheet 'déclare la variable AE (Exemple)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim T As Integer 'déclare la variable T (Total)
Set P = Worksheets("Param") 'définit l'onglet P
AE = P.Range("A2:A" & P.Cells(Application.Rows.Count, "A").End(xlUp).Row) 'définit le tableau AE
Set E = Worksheets("Exemple") 'définit l'onglet E
TV = E.Range("A6").CurrentRegion 'définit le tableau des valeurs TV
For J = 2 To UBound(TV, 2) 'boucle 1 : sur toutes les colonnes J du tableau des valeur TV (en partant de la seconde)
For I = 1 To UBound(TV, 1) 'boucle 2 : sur toutes les lignes I du tableau des valeur TV
For K = 1 To UBound(AE) 'boucle 3 : sur toutes les valeurs à exclure
If TV(I, J) = AE(K, 1) Then GoTo suite 'ai la valeur el ligne I colonne J de TV est une valeur a exclure, va à 'étiquette "suite"
Next K 'prochaine valeur de la boucle 3
T = T + 1 'incrémente T
suite: 'étiquette
Next I 'prochaine ligne de la boucle 2
E.Cells(21, J).Value = T: T = 0 'renvoie le total dans la ligne 21 de la colonne J, réinitialise le total T
Next J 'prochaine colonne de la boucle 1
End Sub