Sub AutoSizeComment()
Dim xwk, xcomment
On Error Resume Next
For Each xwk In ThisWorkbook.Worksheets
For Each xcomment In xwk.Comments
xcomment.Shape.TextFrame.AutoSize = True
Next xcomment
Next xwk
On Error GoTo 0
End Sub
tient c'est bizard ça j'avais répondu avec un lien vers le site de JB concernant les commentaires
et le msg à disparu ou alors tu as crée un autre post sur le même thème