Mais dans ce cas, pourquoi ne pas l'avoir précisé quand je te l'ai demandé ?
J'y ai pensé mais des zones de texte, il y en a (textbox, pieds de page, entetes, cellules, formes, ...).
Dans ce cas, je dirais :
Activesheet.shapes("nomforme").texteffect.text = ??
Le truc, c'est que l'image doit se répéter donc il y en a plusieurs. Supposons qu'elles soient nommées "Forme1", "Forme2", où le suffixe entier correspond à la page :
with Activesheet
for each sh in .shapes
suffixe = replace(sh.name, "Forme", "")
if suffixe like "#*" then
sh.texteffect.text = "..." & chr(10) & suffixe & "/" & .shapes.count
end if
next sh
end with
Ici, il faut autant d'images que de pages.
Cdlt,