[VBA - Access] Boite de dialogue

Bonjour,

Je ne sais pas si ce problème a déjà été posé mais je n'ai pas le temsp de regarder, désolé.
Alors voila mon problème:
J'ai un formulaire Access, et je souhaite que lorsque l'utilisateur click sur un bouton, la fenetre parcourir s'affiche.
Voila mon code :

1- Dim BoiteDialog as FileDialog
2- Dim FichierSelect as Variant

3- Set BoiteDialog = Application.FileDialog(msoFileDialogFilePicker)
4- With BoiteDialog
5- If .Show = -1 then
6- For Each FichierSelect In .SelectItems
7- MsgBox "Le fichier est : " &FichierSelect
8- Next FichierSelect
9- Else
10- End If
11- End With

Le message d'erreur est : La méthode 'FileDialog' de l'objet '_Application' a échoué. (ligne 3)
Il n'accepte pas non plus la première ligne "Dim BoiteDialog as FileDialog".

Si quelqu'un pouvais m'aider ça sera cool.

Merci d'avance.

Aurélie