Sub envoiMailEtFeuilleActive()
ActiveSheet.Copy ' créée une copie de la feuille active
Sheets("planning2").ExportAsFixedFormat Type:=xlTypexslm, Filename:= _
ActiveWorkbook.Path & "\" & "Planning2.pdf"
ActiveWorkbook.SendMail Recipients:=Range("Y11").Value, Subject:="Planning"
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub