Private Sub CommandButton21_Click()
Dim Titre As String
Dim LeClient As String
Dim LeNomClient As String
Dim LObjet As String
Dim nomfichier As String
Dim LeRep As String
Dim Extention As String
Titre = Worksheets("Tabelle1").Range("D1").Value
LeClient = Worksheets("Tabelle1").Range("K2").Value
LeNomClient = Worksheets("Tabelle1").Range("K3")
LObjet = Worksheets("Tabelle1").Range("K4")
LeRep = "N:\XXX\YYYY\ZZZZ"
Extention = ".xlsm"
nomfichier = Titre & "_" & LeClient & "_" & LeNomClient & "_" & LObjet & Extention
ThisWorkbook.SaveAs Filename:=LeRep & "\" & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub