VBA > Créer un dossier nom variable et y enregistrer un fichier portant le même nom

Sub Savesheet()
Dim FolderPath As String, TestStr As String, Nom As String
ActiveSheet.Copy
Nom = [I4]
ActiveSheet.Name = Nom
InitialFileName = Nom
With ActiveSheet.Range("A1:J45")
.Value=.Value
End With
    FolderPath = "C:\Fiches\" & Nom & "\"
    TestStr = ""' début de " je me complique la vie"
    On Error Resume Next
    TestStr = Dir(FolderPath)
    On Error GoTo 0
    If TestStr = "" Then
        MkDir "C:\Fiches\" & Nom' fin de je me complique la vie
' le If End if des exemples précents pouvaient suffire
        ChDir "C:\Fiches\" & Nom
Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("I4").Value)
    Else
        MsgBox "ATTENTION : folder already exists."
        Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("I4").Value)
    End If
End Sub

Sub SavesheetTer()
 Dim FolderPath$, Nom$
 ActiveSheet.Copy
 Nom = [I4]
 With ActiveSheet.Range("A1:J45")
       .Value = .Value
  End With
FolderPath = "C:\Temp\" & Nom
If Dir(FolderPath, vbDirectory) = "" Then
        MkDir FolderPath
        ChDir FolderPath
        Application.Dialogs(xlDialogSaveAs).Show Nom
        Else
        MsgBox "ATTENTION : folder already exists."
        Application.Dialogs(xlDialogSaveAs).Show Nom
End If
End Sub