Sub Save_PDF()
    Dim NomFichier As String
    Dim NomDossier As String
    NomFichier = Range("T2").Value & "-" & Range("T4").Value & "-" & Range("T6").Value
    With Worksheets("Feuil1")
        fichier = NomFichier & ".pdf"
        NomDossier = "C:\dossier" & Range("T6").Value & "\"
        Chemin = NomDossier & fichier
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
    MsgBox " The file has been saved"
End Sub

Sub Save_Excel()    
    Dim NomFichier As String
    Dim NomDossier As String
    NomDossier = "C:\dossier" & Range("T6").Value & "\"
    Application.DisplayAlerts = False
    NomFichier = Range("T2").Value & "-" & Range("T4").Value & "-" & Range("T6").Value & ".xlsm"
    ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
    MsgBox " The file has been saved"
End Sub