RESOLU - Nom image

[castor30]

Bonjour,
j'ai un problème dans ce code pour effacer l'image
En vous remerciant

Sub Logo()
Dim F As Worksheet, Nom As String
Application.ScreenUpdating = False
'La feuille avec le logo doit être la feuille active
Worksheets("Img").Visible = True
    Sheets("Img").Activate
    Nom = ActiveSheet.Name
    ActiveSheet.Shapes("Picture 1").Copy
    Nom = ActiveSheet.Name
    Sheets("EC").Activate
    RazLogo
    Range("A1").Select
    ActiveSheet.Paste
    Selection.Name = "Logo"
    Selection.ShapeRange.Left = 1.5
    Selection.ShapeRange.Top = 1.5
Worksheets("Img").Visible = False
Application.ScreenUpdating = True
End Sub

Sub RazLogo()
    ActiveSheet.Shapes("Logo").Delete
    Range("A1:E20").ClearContents
End Sub

 

[castor30]

RE?
ActiveSheet.Shapes("Picture 1").Copy
La ligne ci-dessous est inutile
Nom = ActiveSheet.Name