Sub Send_Tache_Outlook()
Dim MyOut As New Outlook.Application
Dim MyTask As TaskItem
Set MyTask = MyOut.CreateItem(olTaskItem)
'Affectation d'un Objet Tâche à myTask
With MyTask
.Subject = Sheets("to.do").Cells(1,1).Value
.DueDate = Sheets("to.do").Cells(1,2).Value
.Body = Sheets("to.do").Cells(1,3).Value
End With
MyTask.Save
End Sub