Bonjour,
Pas forcément super facile de te répondre sans le fichier fonctionnel.
Je crois cependant que je partirais sur une solution un tout petit peu différente. Je n'insèrerais pas l'image dans ton "étiquette", mais je la mettrais en bas à droite de la cellule, avec quelque chose du genre :
With Image
.ShapeRange.LockAspectRatio = msoTrue
.Width = cel.Offset(0, -17).Width
.Height = cel.Offset(0, -17).Height
.Left = cel.Offset(0, -17).Left + .Width - cel.Offset(0, -17).Width
.Top = cel.Offset(0, -17).Top + cel.Offset(0, -17).Height - .Height
End With
au lieu de
.Left = cel.Offset(0, -17).Left
.Top = cel.Offset(0, -17).Top
Je ne suis pas sûr d'avoir remplacé la bonne partie du code, mais tu vois l'idée ?