NOMDOSSIER = Format(Date, "ddmmyy") & "_" & "_" & Range("F5") & "_" & Range("C13")
If Dir(ThisWorkbook.Path & "\" & NOMDOSSIER, vbDirectory) = "" Then
MkDir ThisWorkbook.Path & "\" & NOMDOSSIER
End If
Chemin = ThisWorkbook.Path & "\" & NOMDOSSIER & "\"
ThisWorkbook.SaveCopyAs Chemin & "BDC" & "_" & Range("F5") & ".xls"