Re
Tu peux laisser les cellules en place, c'était juste pour ne pas surcharger car si tu veux modifier ces cellules, il faudra désactiver l'affichage de l'image
Installe l'appareil photo dans la barre de lancement rapide : Commandes non présentes dans le ruban, Appareil Photo (parfois Photo dans certaines versions)
Sélectionne les cellules, clique sur l'appareil photo puis clique à l'endroit où doit apparaitre l'angle haut gauche de la photo
Renomme là Image1 puis dans le code de la feuille
Dim Maphoto As Shape
Private Sub SetMaShape()
'
' Tenter de récupérer le Shape nommé "Image1"
' pour initialiser l'objet 'MaPhoto'
On Error Resume Next
Set Maphoto = Me.Shapes("Image1")
On Error GoTo 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Maphoto Is Nothing Then SetMaShape
'
' Si elle n'est toujours pas initialisée (Pas trouvé sur la feuille ?)
' alors sortir
If Maphoto Is Nothing Then Exit Sub
'
' Sinon on adapte son placement vertical
Maphoto.Top = Target.Top - (Maphoto.Height / 2)
End Sub
Code qui déplace l'image verticalement à proximité du clic quand on clique sur une cellule
Il me semble qu'il existe aussi un code qui suit le scroll
Si je retrouve je posterai...
Pour le scroll c'est compliqué
http://www.cpearson.com/excel/DetectScroll.htm