Positionner un commentaire

[Jack]

Bonjour le forum, jpm

Merci jean pierre pour ton idée mais soit ça ne marche pas ou je n'arrive pas à la mettre en app.
Voici le code qui genère mon commentaire:
With Range('D' &numl).AddComment
.Text df
Range('D' & numl).Comment.Shape.OLEFormat.Object.AutoSize = False
Range('D' & numl).Comment.Shape.Top = 25
.Shape.Fill.UserPicture imgFile
End With
With Range('D' & numl).Comment.Shape.OLEFormat.Object.Font' .Size = 8
.Name = 'Tahoma'
.FontStyle = 'Proper'
End With

A la ligne où il y a le .Top=25, j'aimerais que le commentaire s'affiche plus haut. Je n'y arrive pas !!!
Pourrait on m'aider?
Merci de votre aide.
Jack