VBA ouvrir bloc note ds répertoire modifiable

Bonjour,

Je voudrais commander l'ouverture d'un bloc note préalablement créé dans un répertoire défini par l'utilisateur (qui peux donc être modifiable)
Voila ma manière de procéder :

Dim chemin As String
Dim Repertoire As String
Dim ret
Dim fso
Dim fichier
Dim extension As String
Dim NomFichier As String
Dim Head as integer

Repertoire = Worksheets("Commencer").Cells(2, 4) (changeable par l'utilisateur)
NomFichier = Worksheets("Commencer").Cells(3, 4) (changeable par l'utilisateur)
extension = ".txt"

chemin = Repertoire & NomFichier & extension

Head= FreeFile

Open chemin For Append As #Head
Print #Head, " Bonjour tout le monde"
Close #Head

ret = Shell("notepad.exe chemin", vbNormalFocus)

End

Mon erreur vient de la dernière ligne: ret= Shell(notepad.exe chemin", vbNormalFocus)
En effet, chemin dans mn cas n'est pas pris comme une variable mais comme le nom du fichier texte à ouvrir. Du coup, il m'ouvre un fichier texte nommé "chemin" !!

Comment pourrais je lui demander d'ouvrir mon fichier texte disant "bonjour tout le monde "?
merci pour votre aide !