Integrer Image Dans Cellule

Public Sub PutImage(CheminFichierImage As String)
Public Sub PutImage(CheminFichierImage As String)
    If Dir(CheminFichierImage) = "" Then Exit Sub
    ActiveSheet.Pictures.Insert(CheminFichierImage).Select    ' insertion
    With Selection
        .PrintObject = True             'Impression éventuelle de l'image
        .Placement = xlMoveAndSize      'L'image bouge et se retaille avec la cellule
        With .ShapeRange
            .LockAspectRatio = True    'conserver les proportion de l'image?
            .Top = ActiveCell.Top
            .Left = ActiveCell.Left
            If .Width >= Height Then
                .Height = ActiveCell.RowHeight
            Else
                .Width = ActiveCell.Width
            End If
        End With
    End With
End Sub