Alors dans ce cas ce n'est pas ma macro qui fait que ça ne fonctionne plus
J'ai jeté un rapide coup d'oeil à ta macro et le soucis vient de ton selection.shaperange
Le soucis avec ça c'est que si ton image n'est pas sélectionnée ça plante, il faut donc l'appeler via
activesheet.shapes("nomdetonimage")
le mieux pour faire ça c'est de stocker ton image dans une variable objet de la façon suivante :
set image = activesheet.shapes("nomdetonimage")
et après de faire des trucs du genre :
with image
.Left = ActiveCell.Left - 867
.Top = ActiveCell.Top + 8
end with
et ne pas oublier de libérer de la mémoire une fois que tu as finis d'utiliser ton image:
set image = nothing
Pour ton code, activecell ne sert pas, tu peux directement utiliser target, par contre attention, ton programme plantera si tu as plusieurs cellules dans target...