taille d'une image auto-adaptée à la taille de la case

Sub AdapterTailleImage()
    Dim rngCell As Range
    
    Set rngCell = Range(InputBox("Adresse de la cellule :", "Nouvelle cellule", "A1"))
    
    ActiveSheet.Shapes("Picture 1").Select
    With Selection
        .ShapeRange.Left = rngCell.Left
        .ShapeRange.Top = rngCell.Top
    
        .ShapeRange.ScaleWidth rngCell.Width / .ShapeRange.Width, msoFalse, msoScaleFromTopLeft
        .ShapeRange.ScaleHeight rngCell.Height / .ShapeRange.Height, msoFalse, msoScaleFromTopLeft
    End With
    
    Set rngCell = Nothing
End Sub

Sub AdapterTailleImage()
    Dim rngCell As Range
    Dim strAdresse As String
    
    ' entrer l'adresse d'une cellule
    strAdresse = InputBox("Adresse de la cellule :", "Nouvelle cellule", "A1")
    ' créer une variable de type Range qui référence la cellule définie par l'utilisateur
    Set rngCell = Range(strAdresse)
    
    ' sélectionner l'image
    ActiveSheet.Shapes("Picture 1").Select
    
    With Selection
        ' positionner le coin gauche/haut de l'image à gauche de la cellule spécifiée
        .ShapeRange.Left = rngCell.Left
        ' positionner le coin gauche/haut de l'image en haut de la cellule spécifiée
        .ShapeRange.Top = rngCell.Top
        
        ' rngCell.Width / .ShapeRange.Width = calcul du coefficient nécessaire pour adapter la largeur de l'image à la largeur de la cellule
        .ShapeRange.ScaleWidth rngCell.Width / .ShapeRange.Width, msoFalse, msoScaleFromTopLeft
        ' rngCell.Height / .ShapeRange.Height = calcul du coefficient nécessaire pour adapter la hauteur de l'image à la hauteur de la cellule
        .ShapeRange.ScaleHeight rngCell.Height / .ShapeRange.Height, msoFalse, msoScaleFromTopLeft
    End With
    
    ' libérer la mémoire réservée pour la variable
    Set rngCell = Nothing
End Sub