Sub Nommer_une_Image()
Dim NouveauNom As String
On Error GoTo Erreur_Msg
MsgBox Selection.Name
NouveauNom = InputBox("Attribuer un nouveau nom à l'image")
Selection.Name = NouveauNom
Exit Sub
Erreur_Msg:
MsgBox "Pas de formes sélectionnées" & Chr(13) _
& "Veuillez sélectionner une image, svp", , "Erreur : "
End Sub