changement de cle USB et chemin d'enregistrement

Bonjour

Dans un module j'ai l'instruction suivante (qui enregistre mon fichier sur la clé USB:

ChDir "F:\RESTO"
ActiveWorkbook.SaveAs Filename:= _
"F:\RESTO\SEMAINE" & distrib & "\STOCK RESTO S " & semaine & " " & distrib & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Sauf que dès fois je ne suis pas sur le même PC et le chemin de ma clé n'est plus F mais E (par exemple).
Je souhaite mettre le Nom de ma clé dans une cellule (exemple en A1)
Avec l'instruction: chemin = range ("A1").value

Comment bien écrire & chemin & à la place du F (dans l'exemple)

Merci d'avance.
Bon WE