Nul besoin de reposter votre fichier. J'ai votre premier
Si vous mettez ce code dans le module1 par exemple
Sub test()
NomImage = Application.GetOpenFilename(Title:="Selectionnez votre image")
end sub
Cela doit ouvre bien une fenêtre qui vous permet de choisir un fichier ?
Edit :
Dans la fenêtre "securité et confidentialité", vous avez coché la case "m'avertir avant l'ouverture d'un fichier contenant des macros" ?
Si non, cochez là juste pour vérifier qu'excel vous le demande à l'ouverture de votre fichier