Function EstCmtBarré(c)
Application.Volatile
If c.Comment Is Nothing Then
EstCmtBarré = False
Else
EstCmtBarré = False
For i = 1 To Len(c.Comment.Text)
If c.Comment.Shape.TextFrame.Characters(i, 1).Font.Strikethrough Then EstCmtBarré = True
Next i
End If
End Function