Bonjour Christophe,
Dans la sub
Private Sub BP_ENVOI_Click()
Après la boucle
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
If destinataire = "" Then
destinataire = ListBox1.List(i)
Else
destinataire = destinataire & ";" & ListBox1.List(i)
End If
End If
Next i
Tu mets le code
' Vérifier si des destinataires ont été cochés, la variable n'est donc pas vide
If destinataire = "" Then
MsgBox "Vous ne pouvez pas envoyer de mail," & vbCr _
& "si aucun destinataire n'est sélectionné !", vbInformation, "OUPS..."
Exit Sub
End If
Ca me semble logique, non