When doing this and launching the debug-compil

Sub yann3()
'
' yann3 Macro
' Macro enregistrée le 12/04/05 par yann_vautrin
'

'
Dim cpt As Integer
Option Explicit
' ouvre tous les fichiers contenus dans un dossier
chemin = InputBox("Entrez le chemin du dossier contenant les fichiers")
'on se met dans le repertoire

I got anorther error message : "Invalid inside procedure"