Bonsoir Damsa17,
Utiliser cette modif pour adaptation à la cellule.
'Première partie du code...
'L'image couvre la cellule dans laquelle elle s'insère
With Image
.ShapeRange.LockAspectRatio = msoFalse 'Modif à faire ici et chiffres en commentaires
.Width = cel.Offset(0, -8).Width ' - 5
.Height = cel.Offset(0, -8).Height ' - 5
.Left = cel.Offset(0, -8).Left
.Top = cel.Offset(0, -8).Top ' + 3
End With
'4 lignes de code à ajouter
Ratio = cel.Offset(0, -8).Width / Image.Width
Image.Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.ScaleWidth Ratio, msoFalse, msoScaleFromTopLeft
With Image.ShapeRange.Line
suite du code...
Bons tests, bonne continuation.