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