Function ColorieImage(s, couleur)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
f.Shapes(s).Fill.ForeColor.RGB = couleur
ColorieImage = ""
End Function
Function modifieTexte(nomImage, libellé)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
f.Shapes(nomImage).TextFrame.Characters.Text = libellé
modifieTexte = ""
End Function