Mytå

Salut MonsieurPatate, Celeda et le Forum

Pour repositionner les commentaires près de leur cellule respective plutot ceci :

Sub ResetComments()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Shape.Top = cmt.Parent.Top + 5
cmt.Shape.Left = cmt.Parent.Offset(0, 1).Left + 5
Next
End Sub

Mytå