Bonjour,
Soit :
Function imagecell(laquelle As String)
Application.Volatile True
imagecell = ActiveSheet.Shapes(laquelle).TopLeftCell.Address
End Function
à utiliser ainsi :
=imagecell("Image 1")
et si tu veux juste la ligne, c'est
Function imagecellligne(laquelle As String)
Application.Volatile True
imagecellligne = ActiveSheet.Shapes(laquelle).TopLeftCell.Row
End Function