Repositionner les commentaires dans excel

Bonjour,
Comme j'ai recherché longtemps, je vous partage le code pour remetre les commentaires proche des cellules sous excel

Sub Rangement_Commentaires()
On Error GoTo Err_Rangement_Commentaires
'------------------------------------------------------------
'-- replacement des comentaires à droite des cellules -------
'-- redimentionne les commentaire en fonction des contenus --
'------------------------------------------------------------

For Each nom In ActiveSheet.Comments
nom.Shape.TextFrame.AutoSize = True
nom.Shape.Left = Cells(nom.Parent.Cells.Row, nom.Parent.Cells.Column).Left + Cells(nom.Parent.Cells.Row, nom.Parent.Cells.Column).Width
nom.Shape.Top = Cells(nom.Parent.Cells.Row, nom.Parent.Cells.Column).Top
Next nom
Exit_Rangement_Commentaires:
Exit Sub
Err_Rangement_Commentaires:
MsgBox Error$
Resume Exit_Rangement_Commentaires
End Sub