Redimensionner taille phot avec Macro

Bonjour,

Dans le cadre de mon travail, je dois insérer des photos sur une feuille excel.
Ce que je souhaite faire, c'est que la photo rapatriée de mon dossier "images" soit adaptée à la cellule selectionnée.

Pour l'instant, la photo est bien rapatriée, mais est adapté à la cellule de base et non pas à l'ensemble des cellules fusionnées.

Voici la macro :

"Sub Macro3()

ChDrive "C"
ChDir ("C:\chemin d'accès")
nf = Application.GetOpenFilename("Image,*.*")

If Not nf = False Then
Set monimage = ActiveSheet.Pictures.Insert(nf)
End If

Set Emplacement = ActiveCell
Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)

With objImg.ShapeRange
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With

End Sub"

Est ce possible ?

Merci d'avance