Sub BoucleDestinataires()
Dim i As Long
i = 2
While ThisWorkbook.Sheets("Import IOP").Cells(i, 7) <> vbNullString
Call Macro2(ThisWorkbook.Sheets("Import IOP").Cells(i, 7))
i = i + 1
Wend
End Sub
Sub Macro2(Destinataire As String)
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "initialiser.echange@cp.tsce.net"
.Subject = Destinataire
.Body = ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text
.display
End With
End Sub