Insérer image dans des cellules fusionnées

Bonjour,

J'ai créé un bouton pour insérer une image, mais l'image s'affiche sur une cellule:

voilà le code:

Sub Bouton5_Cliquer()

Dim ficimg As Variant
    ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image")  ' choix nom du fichier
    ActiveSheet.Pictures.Insert(ficimg).Select ' insertion
    With Selection.ShapeRange
        .LockAspectRatio = True        ' proportions d'origine lorsque vous la redimensionnez
        .Top = ActiveCell.Top           ' haut de la cellule
        .Left = ActiveCell.Left         ' gauche de la cellule
        .Height = ActiveCell.RowHeight  ' hauteur de la cellule
        .Width = ActiveCell.Width ' largeur de la cellule
    End With
    With Selection
        .PrintObject = True             ' l'objet est imprimé en même temps que le document
        .Placement = xlMoveAndSize      ' manière dont l'objet est lié aux cellules
    End With
End Sub

Je veux quand j'insère la photo elle prend Range(A2:D10)

merci de votre aide

Bonjour

ce topic à l'air intéressante https://forum.excel-pratique.com/viewtopic.php?f=2&t=48143 par al1.2loin (en bas de page) merci à lui

pour le cas d'une image avec des cellules fusionnées

crdlt,

André