Mel a plusieurs destinataires

Bonjour,
Ayant recupere ce code, je desire l'adresser a plusieurs destinataires. Seulement le 1 destinataire le reçois, et là je ne trouve pas apres moult tests

Sub Bouton3_QuandClic()

'Sub envoiMessage_piecesAttachees()
Dim OlApp As Object
Dim OlItem As Object

Set OlApp = CreateObject("Outlook.Application")
Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.To = "AAAA@free.fr"
.To = "BBBB@free.fr"
.Subject = "le sujet ..."
.Body = "Le corps du message ..."
'le classeur Excel est supposé deja sauvegardé
'.Attachments.Add ActiveWorkbook.FullName
.Attachments.Add "\\A\B\C\D\E.xls"
.Save
.Send
End With

Set OlApp = Nothing
End Sub

Je vous remercie par avance pour l'aide.
Cordialement