'----- photo en commentaire colonne 1
With Range(nomtableau).Item(enreg, 1)
.ClearComments
If Me.Photo <> "" Then
If Dir(Me.Photo) <> "" Then
.AddComment
.Comment.Shape.Fill.UserPicture Me.Photo
.Comment.Shape.Height = 100
.Comment.Shape.Width = 100
.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
End If
End If
End With
'--------