J'ai une grande feuille de calcul pleine de commentaires. Lorsque j'effectue un tri tous les
commentaires sont éparpillés Comment faire pour ré-aligner tous les commentaires à leurs
cellules respectives en une seule manip ?

sub RepositionnerCommentaire()
 Dim c
 For Each c In Cells.SpecialCells(xlCellTypeComments)
 With c.Comment.Shape
 .Left = c.Left + c.Width + 8
 .Top = c.Top - 5
 End With
 Next
 end sub

...pour que le commentaire suive la cellule lorsque celle ci est déplacée

sub RepositionnerCommentaireEtFixerAuCellule()
 Dim c
 For Each c In Cells.SpecialCells(xlCellTypeComments)
 With c.Comment.Shape
 .Left = c.Left + c.Width + 8
 .Top = c.Top - 5
 .Placement = xlMoveAndSize
 End With
 Next
 end sub

en sélectionnant le commentaire tu fais un clic droit et choisis format de commentaire. Dans l'onglet propriété il y a -déplacer et dimentionner avec les cellules qui équivaut à Placement = xlMoveAndSize