Sub MailRepHL()
'
' MailRepHL Macro
'
' Copy the sheet(1)
ThisWorkbook.Sheets("Répartition Liège").Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:=Array("xxxx.yyyy@machins.be"), Subject:="Situation HL Kinkempois" & " " & Format(Date, "dd/mmm/yy") & " " & Format(Time, "hh:mm")
.Close SaveChanges:=False
End With
End Sub