Private Sub Workbook_Open()
Dim Feuilles As Worksheet
For Each Feuilles In Worksheets
For Each Cellule In Feuilles.Comments
With Cellule.Shape
With .TextFrame.Characters
.Font.Size = 16
End With
End With
Next
Next
End Sub