Sub Bouton_demande()
If Worksheets("xxx").[A1] <> "" Then
ActiveWorkbook.SaveAs Filename:="U:\bbbb" & Format(DateAdd("D", 0, Date), "YYYYMMDD") & Format(Now, "hhmm") & ".xls"
ActiveWorkbook.SendMail Recipients:=Array("name@domaine.ch"), Subject:="aaa"
ActiveWorkbook.Close
Else
MsgBox "Des cases obligatoires ne sont pas remplies !"
Range("C7").Select
End If
End Sub