Bonjour à tous et à toutes

Je suis confronté à un soucis sur Excel avec une maccro.
J'ai cherché et cherché, j'ai vu le sujet traité mainte fois mais jamais je n'ai réussi à adapter un code trouvé pour le faire fonctionné mon usage.

J'ai un fichier excel avec 2 onglets.
sur l'onglet 1 "Devis" je voudrais qu'en cliquant sur un bouton et en activant la maccro :

- Il se créer un dossier dans un répertoire défini. Le nom du dossier à creer prend le nom de la cellule N8
Exemple :
Le repertoire est : C:\Users\Dell\Desktop\RFC\01 - DEVIS
Si le nom de la cellule N8 est "Devis Mr Machin" alors le dossier à creer sera "Devis Mr Machin" et le repertoire sera C:\Users\Dell\Desktop\RFC\01 - DEVIS\Devis Mr Machin

- Une fois le dossier crée, le fichier excel s'enregistre dans le dossier (en reprenant l'exemple, le fichier s'enregistre dans le dossier C:\Users\Dell\Desktop\RFC\01 - DEVIS\Devis Mr Machin et prend le nom de la cellule N8.xls

Le code que j'ai fait "fonctionne"
Seulement, le dossier se créer bien, mais le fichier s'enregristre dans le repertoire de base (C:\Users\Dell\Desktop\RFC\01 - DEVIS\) et non dans le dossier crée (Devis Mr Machin)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Nouveau_dossier_test()
Const Repert As String = "C:\Users\Dell\Desktop\RFC\01 - DEVIS\"
 
Dim Sousrep, sPath
Dim chemin As String
 
Sousrep = Range("N8").Text
sPath = Repert & Sousrep
 
If Len(Dir(sPath, vbDirectory)) = 0 Then
MkDir sPath
End If
 
 
ActiveWorkbook.SaveCopyAs sPath & Range("N8").Value & ".xls"
End Sub
Merci beaucoup pour votre aide !
Très bonne soirée