Option Explicit
Private Sub Workbook_Open() 'code dans ThisWorkbook
If Weekday(Date) = 4 Then ' jour adapter (7 pour samedi)
Sheets("Samedi").Copy ' onglet nom adapter
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\DoubleZero\Downloads\Samedi.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ' emplacement adapter
ActiveWorkbook.SendMail Recipients:="framboise@live.fr" & ";" & "cerise@live.fr" ' destinataire(s) adapter
ActiveWorkbook.Close
Kill ActiveWorkbook.Path & "\" & "Samedi.xlsm"
Application.DisplayAlerts = True
End If
End Sub