Sub EnvoiMail()
Dim MonOutlookS As Object, MonMessage As Object, corps As String
Dim AD As String
If UserForm1.OptionButton1 = True Then
For I = 6 To 18
If UserForm1.Controls("OptionButton" & I) = True Then
AD=choose(I-5,"adresse1","Adresse2",...,"adresse18")'ici tu listes les 13 adresses mail
Set MonOutlookS = CreateObject("Outlook.Application")
Set MonMessageS = MonOutlookS.createitem(0)
MonMessageS.To = AD
MonMessageS.Subject = "[ Morning Meeting ]" & " " & Date & " : Relevé de Problème Sécurité"
corps = "Bonjour,"
corps = corps & Chr(13) & Chr(10)
corps = corps & Chr(13) & Chr(10)
corps = corps & "Indicateurs : " & UserForm1.ComboBox1.Value & Chr(13) & Chr(10)
corps = corps & Chr(13) & Chr(10)
corps = corps & "Remarques : " & UserForm1.TextBox1.Value & Chr(13) & Chr(10)
corps = corps & Chr(13) & Chr(10)
corps = corps & "Ce message est envoyé lors du Morning Meeting en date du " & Date & " à " & " " & Format(Now(), "hh:mm:ss")
MonMessageS.body = corps
MonMessageS.send
Set MonOutlookS = Nothing
Set MonMessageS = Nothing
corps = ""
End If
Next I
End If
End Sub