Sub EnvoiMail()
Dim EMailPJ As String
Dim Email(8) As String
EMailPJ = ThisWorkbook.Path & "\Temp.xls"
Email(1) = (UserForm1.ListView1.ListItems(1).ListSubItems(1).Text)
Email(2) = (UserForm1.ListView1.ListItems(2).ListSubItems(1).Text)
On Error Resume Next
Email(3) = (UserForm1.ListView1.ListItems(3).ListSubItems(1).Text)
Email(4) = (UserForm1.ListView1.ListItems(4).ListSubItems(1).Text)
Email(5) = (UserForm1.ListView1.ListItems(5).ListSubItems(1).Text)
Email(6) = (UserForm1.ListView1.ListItems(6).ListSubItems(1).Text)
Email(7) = (UserForm1.ListView1.ListItems(7).ListSubItems(1).Text)
Email(8) = (UserForm1.ListView1.ListItems(8).ListSubItems(1).Text)
' Boucle pour envoyer les mails
For z = 1 To 8
Application.StatusBar = "Envoi du mail à " & Email(z)
EnvoiRef = prvSendNotes(("Alerte accident lié au travail d'un agent(e) de la CCIV"), EMailPJ, Email(z), SaveIt:=False)
Next z
End Sub