Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:D100")) Is Nothing Then ' Si clic dans colonne A:D
Nom = "Groupe " & Cells(Target.Row, "D") ' On extrait le N) de l'image
L = Target.Row ' On calcule le N° de ligne cliquée
For Each I In Worksheets(1).Shapes ' On efface tous les shapes
I.Delete
Next
If Cells(L, "D") = "" Then Exit Sub ' Si pas de N° image on sort
Sheets("Data Photos").Shapes(Nom).Copy ' On copie l'image
Sheets("Liste").Range("F" & L).Select ' On va en F, ligne cliquée
ActiveSheet.Paste ' on colle l'image
End If
Fin:
End Sub