c.Comment.Shape.Width = o.Width
c.Comment.Shape.Height = o.Height
c.Comment.Shape.Width = valeur 'largeur en points
c.Comment.Shape.Height = valeur 'hauteur en points
c.AddComment
c.Comment.Shape.Width = o.Width
c.Comment.Shape.Height = o.Height
'-----
Else
Application.ScreenUpdating = False
On Error Resume Next
Set o = Me.Pictures.Insert(nomA & ".png") 'image temporaire, celle-ci
Set o = Me.Pictures.Insert(nomA & ".jpg") 'sinon celle-la
o.Height = 250 'environ 8 cm, une seule des 2 dimensions doit être modifiée
c.ClearComments
c.AddComment
c.Comment.Shape.Width = o.Width
c.Comment.Shape.Height = o.Height
c.Comment.Shape.Fill.UserPicture nomA & ".png" 'ceci
c.Comment.Shape.Fill.UserPicture nomA & ".jpg" 'sinon cela
o.Delete
End If