Tu peux toujours mettre les commentaires existants sur ta feuille au format demandé
Code Module
Sub Modif_Commentaires()
For Each i In ActiveSheet.Comments
i.Shape.OLEFormat.Object.Font.Size = 12
'ici largeur 160 pts
i.Shape.Width = 160
'ici hauteur 40 pts
i.Shape.Height = 40
Next i
End Sub