Selection.document.name ?

Bonjour,
Je voudrai inserer une image sur une feuille excel à partir d'une application vb. Voici mon code:

Code:

ActiveSheet.Pictures.Insert(SLogo).Select
[b]Selection.document.Name = 'monimage'[/b]
Selection.ShapeRange.LockAspectRatio = msoFalse
    With ActiveSheet.Shapes('monimage')
        .Top = Range('d4').Top
        .Left = Range('d4').Left
        .Height = Range('d4:d7').Height
        .Width = Range('d4:f4').Width
    End With

Lorsque j'execute, j'ai ce message d'erreur :
'impossible d'affecter à 1 propriete en lecture seule' et la ligne incriminée est :
'Selection.document.Name ='
Auriez-vous une idée du pourquoi cette erreur ?

Cliquez pour agrandir...