Insertion d'une image dans une feuille de calcul

Bonjour à tous,

Je suis en peine sur une formule en VBA

Je vous joins le fichier pour voir

En gros ma formule ne reconnait pas l'Image que j'ai renommé

Pourriez vous y regarder me dire ou est le soucis

Par avance

Merci

Cordialement

il n y a pas de vba?

Oui je viens de voir je te renvoie le fichier qui va bien

Toute mes excuses

Sub imagesVL_Bls()

Dim X As Integer

For X = 1 To 40

Sheets("Bls").Shapes(X).Visible = False ' ou true

Next X

End Sub

Les images ont toutes un N°, il faut retenir ce numéro au fur et a mesure de leur insertion