Erreur dans rep = Application.GetOpenFilename("*.*")

Bonsoir,

Dans une macro j'écris
rep = Application.GetOpenFilename("*.*")
le compilateur ne dit rien mais quand je lance la macro j'ai le message :
"Bonjour, Nous n'avons pas pu effectuer cette action pour la plage de cellules spécifiée. Veuillez sélectionner une seule cellule d'une plage de données puis réessayez."

À tout hasard je vous mets le source entier de ma macro qui a pour but de lister les fichiers d'un dossier :
Sub Lister()
repertoire = Application.GetOpenFilename("*.*")
i = 2
nf = Dir(repertoire & "\*.*" ) ' premier fichier
Do While nf <> ""
Cells(i, 1) = nf
nf = Dir ' suivant
i = i + 1
Loop
End Sub


Quelqu'un voit-il ce qui cloche, merci ?