Tu n'as pas utilisé la bonne fonction, Application.Dialogs(xlDialogOpen).Show ouvre la commande 'Ouvrir' un ficher Excel
Je te propose ca :
MonFichier = Application.getOpenfilename('Bitmap (*.bmp), *.bmp')
If vartype(MonFichier) = vbboolean Then
Exit Sub
end if
puis tu travailles sur la variable MonFichier pour faire ta copie, etc.
Tu peux bien entendu remplacer le bmp, par des gif, jpeg, etc
@+ et bon courage