XL 2016 Photo dans commentaire

Sub commentaire()
Dim fichier As Shape
fichier = Shapes.Range(Array("Image"))
 With Cells(3, 3)
 
            .ClearComments
            .AddComment
            .Comment.Text Text:=""
 
            With .Comment.Shape
 
                .Fill.UserPicture fichier
                .ScaleWidth 1, msoFalse, msoScaleFromTopLeft
                .ScaleHeight 1, msoFalse, msoScaleFromTopLeft
                .LockAspectRatio = msoFalse
                .Height = 159.75
                .Width = 120#
 
            End With
 
        End With