Microsoft 365 Calculer nombre de note avec "texte"

=NB.SI(A:J;"*toto*")

Dim Cel As Range
For Each Cel In Cells.SpecialCells(xlCellTypeComments)
'blabla'

Sub CountCommentCells()
    Dim rng As Range
    Dim cell As Range
    Dim count As Integer
    Dim searchText As String
    Dim words() As String
    Dim word As Variant

    ' Plage de cellules à vérifier, changer si besoin
    Set rng = ThisWorkbook.Sheets("Feuil1").Range("A1:B10")

    ' Spécifiez le texte à rechercher dans les commentaires
    searchText = "test"

    count = 0

    ' Parcourir chaque cellule de la plage
    For Each cell In rng
        ' Vérifier si la cellule a un commentaire
        If Not cell.Comment Is Nothing Then
            ' Remplacer les retours à la ligne par des espaces
            Dim commentText As String
            commentText = Replace(cell.Comment.Text, Chr(10), " ")
            ' Diviser le texte du commentaire en mots
            words = Split(commentText, " ")
            ' Vérifier chaque mot
            For Each word In words
                If word = searchText Then
                    count = count + 1
                    Exit For
                End If
            Next word
        End If
    Next cell

    MsgBox count & " cellules contiennent '" & searchText & "' dans leur commentaire."
    
End Sub

 ' Vérifier si la cellule a un commentaire
        If Not cell.Comment Is Nothing Then
            ' Remplacer les retours à la ligne par des espaces
            Dim commentText As String
            commentText = Replace(cell.Comment.Text, Chr(10), " ")

 ' Diviser le texte du commentaire en mots
            words = Split(commentText, " ")