Insertion image - macro

Bonjour,

J'ai le code suivant :

Code:

---

1 2	If el = "Vêtements de protection obligatoire" Then Set objPict = objFeuille.Pictures.Insert(ActiveWorkbook.Path + "\Pictogrammes\Pictodobligation\3.jpg")

---

Qui marche, c'est à dire que si la condition est remplie, l'image s'affiche.

J'enregistre.

Quand j'ouvre mon fichier, l'image s'affiche, sauf si je supprime le repertoire "\Pictogrammes\Pictodobligation\3.jpg"

Or j'aimerai transmettre ce fichier, à quelqu'un qui n'a pas le répertoire en question sur son poste. J'aimerai donc que l'image inséréé soit insérée une bonne fois pour toute dans le fichier, sans aller la chercher ailleurs...


Pouvez m'aider svp ??!!

Merci d'avance !
Marc