Function NbCmt2(champ As Range, Cmt)
Application.Volatile
For Each c In ActiveSheet.Comments
If Not Intersect(champ, c.Parent) Is Nothing Then
If InStr(UCase(c.Text), UCase(Cmt)) > 0 And c.Parent.Value > 0 Then n = n + 1
End If
Next c
NbCmt2 = n
End Function