Sub Compter_Mot_dans_Commentaires()
'
'
Dim CmtTxt As String
Dim cmt As Comments
Dim C

Dim Message, Titre, MonMot, default
Dim OccMot As Integer
Dim PosDepart As Integer
Dim PosMotTrouver As Integer

    Message = "Inscrire le mot recherché"
    Titre = "Compteur de mot dans les commentaire"
    MonMot = InputBox(Message, Titre)

    If MonMot = "" Then Exit Sub

    OccMot = 0
   
    Set cmt = ActiveSheet.Comments
    For Each C In cmt
        CmtTxt = C.Text
        PosDepart = 1
           
    'Boucle pour compter les occurences du mot dans chaque commentaire
        Do While InStr(PosDepart, CmtTxt, MonMot, 1) <> 0
            PosMotTrouver = InStr(PosDepart, CmtTxt, MonMot, 1)
            PosDepart = PosMotTrouver + 1
            OccMot = OccMot + 1
        Loop
    Next

Dim Msg, Style, Title, Help, Ctxt, Reponse, MyString
Title = "Compteur de mot dans les commentaires"
Style = vbOKOnly + vbInformation
Msg = "Le mot " + UCase(MonMot) + " apparait " + CStr(OccMot) + " fois dans les commentaires de la feuille active" + Chr(10) + Chr(10) + "sans considération des majuscules ou des minuscules"
Reponse = MsgBox(Msg, Style, Title)

End Sub