Sub cds()
Dim NOMDOSSIER$, Chemin$
NOMDOSSIER = Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss")
If Dir(ThisWorkbook.Path & "\" & NOMDOSSIER, vbDirectory) = "" Then
MkDir ThisWorkbook.Path & "\" & NOMDOSSIER
End If
Chemin = ThisWorkbook.Path & "\" & NOMDOSSIER & "\"
ThisWorkbook.SaveCopyAs Chemin & "toto" & ".xls"
End Sub