Aide sur une macro si erreur

Encore moi !

Un autre problème : j'ai utilisé une macro indiquée par mon ami Banzaï et l'ai arrangée à ma sauce. Dans ma version, tous les noms n'ont pas forcément une photo associée. Donc débogage du VBA. Où dois-je placer un "on error resume next" ? si c'est bien cela qu'il faut que j'utilise !!!

Cordialement, et certainement la dernière pour ce soir...

Bonjour Pynatha

Voici le code

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$2" And Target.Count = 1 Then
    On Error Resume Next
    ActiveSheet.Shapes("monimage").Delete
    On Error GoTo 0
    If Target <> "" Then
      ' En cas d'erreur on continue
      On Error Resume Next
      ' On essaye de copier l'image
      Sheets("Images").Shapes(Target).Copy
      ' Si la copie se fait bien => numéro d'erreur = 0
      If Err.Number = 0 Then
        Target.Offset(0, 2).Select
        ActiveSheet.Paste
        Selection.Name = "monImage"
        Selection.ShapeRange.Left = ActiveCell.Left
        Selection.ShapeRange.Top = ActiveCell.Top
        Target.Select
      End If
    End If
  End If
End Sub

Pour ton nom Liste, mieux vaut le définir de la sorte

=DECALER(Images!$A$1;1;;NBVAL(Images!$A:$A)-1)

Comme ça ta liste s'étend en fonction du nombre de nom

A+