[XL-2007] VBA copier/coller image

Bonjour,
Une solution parmi d'autre...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'La feuille avec le logo doit être la feuille active
Sub CopieLogo()
Dim F As Worksheet, Nom As String
    Nom = ActiveSheet.Name
    ActiveSheet.Shapes("Image1").Copy
    For Each F In Sheets
        If F.Name <> Nom Then
            F.Select
            Range("A1").Select
            ActiveSheet.Paste
            Selection.ShapeRange.Left = 1.5 'à adapter
            Selection.ShapeRange.Top = 1.5 'à adapter
        End If
    Next F
End Sub

A+