Dim Commentaire As Comment
Set Commentaire = ActiveCell.AddComment
'ActiveCell.Comment.Shape.Fill.UserPicture "chemin du fichier"
Dim Commentaire As Comment
Set Commentaire = ActiveCell.AddComment
'ActiveCell.Comment.Shape.Fill.UserPicture "chemin du fichier"