Comment recopier dans un nouveau classeur quelques feuilles préalablement sélectionnées et les envoyer par mail au destinataire dont l'adresse est indiquée en A1 ?

La page de garde est prise de toute façon (elle doit être nommée ainsi ou sinon adapter la macro)

 Private Function envoiMail()
  Dim f As Worksheet
  Dim c As Workbook
  Dim w As Window
  
  Set w = Windows(1)
  ThisWorkbook.Sheets("Page de garde").Copy
  Set c = Workbooks.Item(Workbooks.Count)
  For Each f In w.SelectedSheets
    If f.Name <> "Page de garde" Then
      f.Copy after:=Workbooks(c.Name).Sheets("Page de garde")
    End If
  Next
  For Each f In Workbooks(c.Name).Application.Worksheets
    f.Protect Password:="blu"
  Next
  Workbooks(c.Name).SendMail [A1], "Sujet", False
  c.Saved = True
  c.Close
 End Function