Private Sub Envoi_DA()
Dim Reco As Recordset
Dim EmailPers as String
Set Reco = CurrentDb.OpenRecordset("SELECT * FROM T_Utilisateurs WHERE A_Droits = 'DirCo' OR A_Droits= 'DirRD';")
EmailPers = ""
With Reco
.MoveFirst
While Not .EOF
EmailPers= EmailPers & ";" & ![Email]
.MoveNext
Wend
End With
MsgBox "Liste des emails : ", EmailPers
Reco.Close
Set Reco = nothing
End Sub