'Ajouter les images en commentaires
For Lig = LigneUN To Sheets("Data").Range("A65536").End(xlUp).Row
Ad = Sheets("Data").Cells(Lig, 3).Value
FeuilDesti.Range(Ad).Select
With Selection
.AddComment
.Comment.Visible = True
'modif Staple
.Comment.Text Text:=VBA.Dir(Sheets("Data").Cells(Lig, 1).Text)
' .Comment.Shape.Select True
' .Comment.Shape.Height = Sheets("Data").Cells(Lig, 5).Value * Zoom 'hauteur
' .Comment.Shape.Width = Sheets("Data").Cells(Lig, 4).Value * Zoom ' largeur
' Selection.ShapeRange.LockAspectRatio = msoFalse
' Selection.ShapeRange.Fill.UserPicture Sheets("Data").Cells(Lig, 1).Value
' .Comment.Visible = False
' fin modif Staple
End With
Next Lig
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If
End Sub