Private Sub CommandButton1_Click()
Dim olApp As New Outlook.Application
Dim olItem As Outlook.mailItem
' necessite d'activer la reference microsoft outlook 10.0 object library
Dim x(), i%, tmp$, destinataires$
x = Range(Cells(14, 2), Cells(Rows.Count, 2).End(xlUp)).Value
For i = LBound(x, 1) To UBound(x, 1)
tmp = tmp & ";" & x(i, 1)
Next i
destinataires = Mid(tmp, 2, 9 ^ 9)
Set olItem = olApp.createItem(olMailItem)
With olItem
.BBC = destinaires
.Subject = ActiveSheet.Range("B9").Text
.Body = ActiveSheet.Range("B10").Text
.Display
End With
Set olItem = Nothing
Set olApp = Nothing
End Sub
End Sub