Adapter image à la taille exacte d'une celule

Bonjour,
et merci à tous pour l'aide que vous pourrez m'apporter.

Je souhaite adapter la taille d'une image à la taille exacte d'une cellule. J'ai trouvé de nombreux codes sur Internet mais aucun ne fonctionne sur ce que je souhaite faire.

Voici le bout de code que j'utilise pour copier mon image :
Code:

1 2 3 Sheets("ECHFMT").Shapes("ImageSA1").Copy Sheets("SARECAP").Range("E2").PasteSpecial xlPasteAll
En résumé je copie une image (ImageSA1) qui se trouve dans la feuille ECHFMT et je la copie dans la cellule E2 de la feuille SARECAP,
mais j'aimerais que cette image s'adapte exactement à la taille de la cellule concernée (E2)
Sachant que je reproduis cette manipulation pour une 50aine d'images dans diverses cellules

C'est pour résumer un ensemble d'images dans une même colonne en fait.

J'ai déjà perdu presque 2h à essayer des codes du Net mais aucun ne réalise l'action souhaitée (je dois mal m'y prendre)

Merci infiniment pour votre aide

Mic

re

bonsoir

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Sub test()
    Sheets(2).Activate
    Sheets(1).Shapes("Rectangle 1").Copy
    With Sheets(2)
        .Range("A2").Select
        .Paste
        .Shapes(.Shapes.Count).Width = .Range("A2").Width
        .Shapes(.Shapes.Count).Height = .Range("A2").Height
    End With
End Sub

Merci beaucoup de votre aide

Mick