Redimensionner des images importé

Hello les ami(e)s,

Je rencontre une difficulté pour redimensionner des images préalablement importé.

Je m'explique, j'ai un onglet nommé CLIENT avec des références et un autre onglet nommé IMAGES.

Sur la feuille IMAGES:

colonne A : j'ai le nom des images
colonne B: je souhaiterai importer des images tout en redimensionnant par rapport à la taille de la cellule automatiquement.

Pour l'import des images automatiquement en fonction du nom de la colonne A, j'ai pu trouvé la macro dont le code est le suivant:

Sub ImportImages()

répertoirePhoto = "C:\Users\n.hayoun\Desktop\MACRO EXCEL\"

suppression

Range("b1").Select

For Each c In [A1:A5]

nf = répertoirePhoto & c & ".jpg"

If Dir(nf) <> "" Then

Set img = ActiveSheet.Pictures.insert(nf)

img.Left = c.Offset(, 1).Left

img.Top = c.Offset(, 1).Top

c.EntireRow.RowHeight = img.Height

End If

End Sub

Sub suppression()

For Each i In ActiveSheet.Shapes

If i.Type = 13 Then i.Delete

Next i

End Sub

Ma question est de savoir, comment modifier cette macro de façon à redimensionner automatiquement les images en fonction de la taille de la cellule?