Sub test()
'Dim olMail As Outlook.MailItem
Dim Corps As String
Dim Cel As Range
For Each Cel In Range("A2:A143")
'Set olMail = olApp.CreateItem(olMailItem)
' With olMail
'.To = Cel.Value
'.Subject = Range("C2")
'For i = 2 To Range("B2").End(xlDown).Row
' Corps = Corps & Range("B" & i) & vbCrLf_
'Next i
'.Body = Corps
'.Send
'End With
MsgBox Cel.Address 'Email
MsgBox Cel.Offset(0, 1).Address 'B 'Corps mail
MsgBox Range("C2").Address ' C: Objet
Next Cel
End Sub