Comment modifier avec vba l'ensemble des commentaire d'un classeur

Sub Truc()
    Dim sh As Worksheet
    Dim oComment As Comment
    For Each sh In ThisWorkbook.Worksheets
        For Each oComment In sh.Comments
            With oComment.Shape
                .DrawingObject.Text = Replace(.DrawingObject.Text, "10", "11")
            End With
        Next
    Next sh
End Sub

Sub Truc()
    Dim sh As Worksheet
    Dim Rng As Range
    On Error Resume Next
    For Each sh In ThisWorkbook.Worksheets
        For Each Rng In sh.Cells.SpecialCells(xlCellTypeComments)
            Rng.Comment.Text Text:=Replace(Rng.Comment.Text, "10", "11")
        Next
    Next sh
    On Error GoTo 0
End Sub