XL 2013 [RéSOLU] Compter nombre d'occurence dans une matrice ou tableau filtré

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim COL As Byte 'déclare la variable COL (COLonne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim T As Integer 'déclare la variable T (Total)

If Application.Intersect(Target, Range("B2:U2")) Is Nothing Then Exit Sub 'si le changement a lieu ailleurs qu'en B2:U2, sort de la procédure
If Target.Value = "" Then Target.Offset(1, 0).Value = "": Exit Sub 'si la cellule est effacée, efface la cellule en-dessous et sort de la procédure
DL = Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A
COL = Target.Column + 3 'définit la colonne COL (3 colonnes de plus que la colonne de la cellule modifiée)
Set PL = Range(Cells(9, COL), Cells(DL, COL)).SpecialCells(xlCellTypeVisible) 'définit la plage PL (les cellule visibles de la plage des lignes 9 à DL de colonne COL)
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
    If CEL.Value = Target.Value Then T = T + 1 'si la valeur de la cellule CEL est égale à la valeur de la cellule modifiée, incrémente T de +1
Next CEL 'prochaine celule de la boucle
Target.Offset(1, 0).Value = T 'renvoie le total T dans la cellule en dessous de la cellule modifiée
End Sub

Private Sub Worksheet_Calculate() 'au recalcul dans l'onglet
Dim I As Integer 'déclare la variable I (Incrément)
For I = 2 To 21 'boucle sur les colonnes 2 à 21 (B à U)
    'si la cellule ligne 2 colonne I n'est pas vide, réecrit sa valeur (cela renvoie la procédure Change au dessus)
    If Cells(2, I).Value <> "" Then Cells(2, I).Value = Cells(2, I).Value
Next I 'prochaine ligne de la boucle
End Sub

=SOMMEPROD(SOUS.TOTAL(2;DECALER(E9;LIGNE(INDIRECT("1:"&LIGNES(E10:E127)));))*(E10:X127=45))