Sub ModifCommentaire()
Dim C As Comment
Dim T, R
T = Application.InputBox(Prompt:='Expression à remplacer ?', _
Title:='Modif commentaires', Type:=2)
If T = False Or T = '' Then Exit Sub
R = Application.InputBox(Prompt:='Expression de remplacement ?', _
Title:='Modif commentaires', Type:=2)
If R = False Then Exit Sub
For Each C In ActiveSheet.Comments
C.Text Replace(C.Text, T, R)
Next C
End Sub