copier selection de feuille et envoyer par mail

[pralo]

bonsoir le forum
j'ai de nouveau besoin de vous
j'ai essayer avec l'enregistreur de macro mais pas concluant
je voudrais envoyer tel ou tel feuilles a des collègue en tant que classeur simple au format .xlsx ( sans macro)
1- sélectionner un ou plusieurs onglets différents
2- envoyer par mail mais sans macro
pour le mail, ca fonctionne mais je ne peut pas choisir les feuilles
si quelqu'un peut m'aider
merci par avance

 

[pralo]

bonsoir le forum
en cherchant un peut (en fait, beaucoup)
j'ai combiné deux code que j'ai trouvé
je selctionne toute les feuille sauf les 4 premieres
et ensuite j'envoie par mail
mais le nombre de feuilles varie
For i = 5 To 7 (comment faire pour qu'il sélectionne toute les feuilles sauf les 4 premières)
merci pour votre aide

Sub SelectionFeuilles()
Dim WB1 As Workbook
Dim MyArray() As String
Dim i As Integer, X As Byte
Set WB1 = ThisWorkbook
    For i = 5 To 7
        ReDim Preserve MyArray(X)
        MyArray(X) = Sheets(i).Name
           X = X + 1
    Next
            WB1.Worksheets(MyArray).Copy
           
'envoie mail
           
            ActiveWorkbook.SendMail Recipients:="" 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub