=NbCmt(A1:B10;"atelier";"feuil2")
Function NbCmt(champ As Range, Cmt, Optional onglet)
Application.Volatile
If IsMissing(onglet) Then onglet = ActiveSheet.Name
For Each c In Sheets(onglet).Comments
If Not Intersect(Sheets(onglet).Range(champ.Address), c.Parent) Is Nothing Then
If InStr(UCase(c.Text), UCase(Cmt)) > 0 Then n = n + 1
End If
Next c
NbCmt = n
End Function