J'ai simplement remplacer dans ton code ces lignes :
Range("A" & ligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
par ça :
Range("A" & ligne).Select
ActiveSheet.Paste
Selection.Style = "Normal"
et ça semble fonctionner. Cependant si tu mets à jour le tableau 2300X et que tu l'enregistre à nouveau ça va mettre une deuxième image par dessus
Cordialement