Sub entoure_commentaires()
For Each co In ActiveSheet.Comments
With co.Parent
.Borders(xlEdgeLeft).LineStyle = xlDouble
.Borders(xlEdgeTop).LineStyle = xlDouble
.Borders(xlEdgeBottom).LineStyle = xlDouble
.Borders(xlEdgeRight).LineStyle = xlDouble
End With
Next
End Sub