Sub Trombine()
repertoire = "C:\X\agrandissements\"
For Each c In Range("A2", [A65000].End(xlUp))
c.ClearComments
c.AddComment
c.Comment.Text Text:=CStr(c)
fichier = CStr(c.Value) & ".jpg"
If Dir(repertoire & fichier) <> "" Then
c.Comment.Shape.Fill.UserPicture repertoire & fichier
c.Comment.Shape.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
c.Comment.Shape.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
[COLOR="Red"] c.Comment.Visible = False[/COLOR]
End If
Next
End Sub