Microsoft 365 Affichage photo : visible - pas visible

Sub Image()
    For Each I In Worksheets(1).Shapes
        I.Delete
    Next
    Sheets("Data Photos").Shapes("Groupe 26").Copy
    Sheets("Liste").Range("F1").Select
    ActiveSheet.Paste
End Sub

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