Private Sub CommandButton1_Click()
Destinataire = "moutchec@gmail.com; Yo@Man.com"
ActiveSheet.Copy
With ActiveWorkbook
Rows("1:2").Delete Shift:=xlUp
.SendMail Recipients:=Destinataire
Application.DisplayAlerts = False
.Close
Application.DisplayAlerts = True
End With
End Sub