Sub testo()
'ws In Worksheets
'Dim ws As Variant
'ws.Select
mystr = Format(Date, "dd-mm-yyyy")
Sheets(Array(ActiveSheet.Name)).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Name & " " & mystr & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.ActivePrinter = "Sowedoo PDF 4 sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Sowedoo PDF 4 sur Ne00:"
ActiveWindow.Close
FileCopy "D:\Data\" & ActiveSheet.Name & " " & mystr & ".pdf", ThisWorkbook.Path & "\" & ActiveSheet.Name & " " & mystr & ".pdf"
Kill (ThisWorkbook.Path & "\" & ActiveSheet.Name & " " & mystr & ".xls") ', FileFormat:= _"
Kill ("D:\Data\" & ActiveSheet.Name & " " & mystr & ".pdf")
Application.DisplayAlerts = True
End Sub