Macro email

bonjour je n'arrive pas a envoyer mes mail à plusieurs destinataires voici la macro que j'ai créer en entier merci de votre aide

ub commande()
'
' commande Macro 3 mails
'

Rows("4:56").Select
ActiveWorkbook.Worksheets("00").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("00").Sort.SortFields.Add Key:=Range("K4:K56"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("00").Sort
.SetRange Range("A4:T56")
.Header = xlGuess
.MatchCase = True
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select

ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="sreprographie@ch-lagny77.fr"
ActiveWorkbook.Close savechanges:=False

ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="afaivre@ch-marnelavallee.fr"
ActiveWorkbook.Close savechanges:=False

ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="bfaguer@ch-marnelavallee.fr"
ActiveWorkbook.Close savechanges:=False


Rows("4:56").Select
ActiveWorkbook.Worksheets("00").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("00").Sort.SortFields.Add Key:=Range("J4:J56"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("00").Sort
.SetRange Range("A4:T56")
.Header = xlGuess
.MatchCase = True
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("accueil").Select


ActiveWorkbook.Save
'
ActiveWindow.Close
'
End Sub