Sub TACHETEST()
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.TaskItem
Set myOlApp = New Outlook.Application
Set myItem = myOlApp.CreateItem(olTaskItem)
For i = 3 To 100
If Cells(i, 5) <> "" And Cells(i, 72) = "" Then
With myItem
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Cells(i, 5)
.Body = Cells(i, 6)
.TotalWork = 40
.ActualWork = 20
.Subject = "Relance : " & Cells(i, 2) & " / " & Cells(i, 3)
.Assign
' le nom doit exister dans le dossier d'adresses
.Recipients.Add ("JEAN BON")
.Save
.Send
End With
End If
Cells(i, 72) = "Oui"
Next i
End Sub