Incrustation d'image selon un critère défini

Private Sub CommandButton2_Click()
Range("F18").Value = ComboBox1.Value
Range("D23").Value = TextBox1.Value
Range("F23").Value = TextBox2.Value
Range("H23").Value = TextBox3.Value
Range("J23").Value = TextBox4.Value
[B]'supprime la (ou les) photo(s) actuelle(s)
For Each photo In ActiveSheet.Shapes
   If photo.Name Like "Picture*" Then photo.Delete
Next
'récupère la photo de la base de donnée en fonction du prénom sélectionné
With Sheets("foto")
   lig_pers = .Cells.Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Row
   For Each photo In .Shapes
      If photo.TopLeftCell.Row = lig_pers Then
         photo.Copy
         Exit For
      End If
   Next
End With
Sheets("Recherche").Activate
Range("F10").Select
ActiveSheet.Paste[/B]
[B]Range("A1").Activate
[/B]Unload Me
  
End Sub