Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count <> 80 Then Exit Sub
Dim nom$
Cancel = True
nom = Target(1, -7) & " " & Target(3, -7) 'nom + prénom
On Error Resume Next
Me.Shapes(nom).Delete
Sheets("Photos").Shapes(nom).Copy
Me.Paste
With Me.Shapes(nom) 'cadrage
.Top = Target.Top + (Target.Height - .Height) / 2
.Left = Target.Left + (Target.Width - .Width) / 2
End With
Target.Select
[A1].Copy [A1] 'vide le presse-papiers
End Sub