Sub ConvertCommentaire()
Dim i As Integer
If MsgBox("Voulez-vous continuer ?", vbYesNo) = vbNo Then Exit Sub
Selection.ClearComments
For Each c In Selection
c.AddComment CStr(c.Value)
c.Comment.Shape.TextFrame.AutoSize = True
c.Comment.Shape.OLEFormat.Object.Font.Size = 12
c.Value = ""
Next c
End Sub