Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
For Each cel In Selection 'boucle sur toutes les cellules cel de la sélectoin
On Error Resume Next 'gestion des erreurs (en cas d'erreur, passe à la ligne suivante)
With cel.Comment 'prend en compte le commentaire de la cellule cel (provoque une erreur si cel n'a pas de commentaire)
If Err <> 0 Then Err = 0: GoTo suite 'si un erreur a été générée, annule l'erreur, va à l'étiquette "suite"
.Shape.TextFrame.AutoSize = True 'taille automatique du commentaire
End With 'fin de la prise en compte du commentaire de la cellule cel
suite: 'étiquette
On Error GoTo 0 'annule la gestion des erreurs
Next cel 'prochaine cellule de la boucle
End Sub