Solution sur un formatage conditionnel

Bonjour à tous

Voilà

J'ai deux colonnes D et E. Quand je rentre un nom dans D je veux que dans E une image apparaisse.

J'avais fait une macro qui fonctionnait quand je l'activais "manuellement".

Depuis que j'ai voulu la lancer en automatique via un formatage conditionnel, elle me pose problème.

Elle me place deux image en colonne "D" et ne supprime pas l'image précédemment mise en "E" alors que cela fonctionnait lorsque je passais par "Afficher les macros" -> "Executer"

Je vous mets en dessous la macro que j'ai passé en fonction pour pouvoir l'appeler via le formatage conditionnel avec une formule =SI(D2<>"";inserer_une_photo();"")

Private Function Inserer_une_photo()

Dim Sh As Shape

With Worksheets(1)

For Each Sh In .Shapes

If Not Application.Intersect(Sh.TopLeftCell, .Range("E2")) Is Nothing Then

Sh.Delete

End If

Next Sh

End With

répertoirePhoto = "D:\Users\Pictures\image\"

nom = Range("D2")

ActiveSheet.Pictures.Insert(répertoirePhoto & nom & ".jpg").Name = nom

ActiveSheet.Shapes(nom).Left = [E2].Left

ActiveSheet.Shapes(nom).Top = [E2].Top

End Function

Si quelqu'un a une idée je suis preneur

Je vous remercie