renommer beaucoup d'image

[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Img [COLOR=NAVY]As Object
    For Each[/COLOR] Img [COLOR=NAVY]In[/COLOR] ActiveSheet.DrawingObjects
        [COLOR=NAVY]With[/COLOR] Img.TopLeftCell
            [B][COLOR=NAVY]If[/COLOR] .Column = 3 [COLOR=NAVY]Then[/COLOR]
[/B]                Img.Name = "image" & .EntireRow.Range("B1").Text
                Img.Left = .EntireRow.Range("A1").Left
            [B][COLOR=NAVY]End If[/COLOR][/B][COLOR=NAVY]
        End With
    Next[/COLOR] Img
[COLOR=NAVY]End Sub[/COLOR][/SIZE]