Salut,
Par macro tu peux coller,renommer et redimensionner d’un coup par exemple
Sub Colle_Renomme_Redimensionne()
Range("A2").Select ‘on va positionner en A2 l’image
ActiveSheet.Paste ‘on la colle
Selection.ShapeRange.Name = "toto" ‘on la renomme toto
Selection.Width = 114 ‘on set sa largeur à 114
End Sub
Tu peux aussi repositionner avec .top et .left si necessaire pour encore plus personnaliser ou la positionner ailleurs, bref y a surement mieux que cette macro mais un début pour avancer
ECG