Compter le nombre d'occurance selon la valeur de la cellule adjacente

Private Sub TextBox2_Change() 'au changement dans la TextBox2
Dim o As Object 'déclare la variable o (Onglet)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim nb As Integer 'dléclare la varoable nb (NomBre)

Set o = Sheets("Feuil1") 'définit l'onglet o
dl = o.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 2 (=B)
Set pl = o.Range("B12:B" & dl) 'définit la plage pl
Me.TextBox1.Value = "" 'vide la TextBox1
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
    'si le contenu de la cellule cel (converti en texte) est égal au contenu de la TextBox2 et si la cellule à droite de cel vaut "oui" (accepte les majuscules et les minuscules),
    'incrémente le compteur nb
    If CStr(cel.Value) = Me.TextBox2.Value And UCase(cel.Offset(0, 1).Value) = "OUI" Then nb = nb + 1
Next cel 'prochaine cellule de la boucle
Me.TextBox1.Value = nb 'renvoie le nombre nb dans la TextBox1
End Sub

Private Sub TextBox2_Change()
TextBox1 = Evaluate("SUMPRODUCT((""""&B12:B20=""" & TextBox2 & """)*(C12:C20=""oui""))")
End Sub

Private Sub TextBox2_Change()
TextBox1 = Evaluate("SUM((""""&T=""" & TextBox2 & """)*(P=""oui""))")
End Sub

Private Sub UserForm_Initialize()
Dim derlig&
derlig = Range("C" & Rows.Count).End(xlUp).Row
Range("B12:B" & derlig).Name = "T" 'nom défini
Range("C12:C" & derlig).Name = "P" 'nom défini
TextBox2_Change
End Sub

Private Sub TextBox2_Change()
Dim x$
x = TextBox2
If IsNumeric(x) Then x = Replace(CDbl(x), ",", ".") Else _
  If IsDate(x) Then x = Replace(CDbl(CDate(x)), ",", ".")
TextBox1 = Evaluate("SUM((""""&T=""" & x & """)*(P=""oui""))")
End Sub

Private Sub UserForm_Initialize()
TextBox2_Change
End Sub