Pref = LTrim(Replace(ActiveSheet.Shapes("FR-" & choix).OLEFormat.Object.Text, vbLf, ""))
J'avais signalé dans mon premier message que les noms des onglets devaient être identiques à ceux des images, n'est-ce-pas ?fonctionne sous 2003 en modifiant le "textframe2"