Boucle pour envoyer mail

Bonjour,

j'aimerai envoyer un amil à l'utilisateur qui n'a pas rempli son fichier excel.

j'ai démarré une macro mais elle tourne en boucle et ne met que le dernier utilisateur , et non pas chaque utilisateur.

Merci

bonjour

essaye avec ce code

a+

fred

Public Sub EnvoiAutomatiqueMail()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim i As byte
'init des messages
For i = 2 To ThisWorkbook.Worksheets("Param").Range("D" & Rows.Count).End(xlUp).Row ' on passe en revue toutes les lignes de la colonne A
    Set OutlookApp = CreateObject("outlook.application")
    Set OutlookMail = OutlookApp.createitem(0)
        With OutlookMail
        .Subject = ThisWorkbook.Worksheets("Param").Range("Q4").Value  'sujet du mail
        .To = ThisWorkbook.Worksheets("Param").Range("D" & i).Value 'adresse mail destinataire
        .cc = ThisWorkbook.Worksheets("Param").Range("L3").Value
        '.body = message 'corps du message
        .Display
        '.send 'on envoie le mail créé
        End With
Next i 'on passe au mail suivant
End Sub

Bonjour Fred2406,

Que du bonheur .

Merci beaucoup