[wilfried_42]

Bonjour à tous

Set MyPicture = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Val & ".jpg")
With MyPicture.ShapeRange
    .LockAspectRatio = msotrue
    .Top = MyCell.Top 
    .Left = MyCell.Left
    if mycell.height> mycell.width then
          .Height = mycell.height
    else
          .Width = mycell.width
    end if
end with

si j'ai tout compris, ce n'est pas la taille de l'image qu'il faut tester, mais la taille de la cellule qui receptionne
une seule valeur est utile, avec .lockaspectratio = msotrue, le rapport hauteur, largeur est gardé