Sub NouveauMessage()
Dim ObjOutlook As Object
Dim ObjMessage As Object
Set ObjOutlook = CreateObject("Outlook.Application")
Set ObjMessage = ObjOutlook.CreateItem(0)
Dim Dest As String
Dim Cell As Range
For Each Cell In Range("D5:D" & Range("D65536").End(xlUp).Row)
Dest = Dest & ";" & Cell
Next Cell
ObjMessage.To = Dest
ObjMessage.Display
Set ObjOutlook = Nothing
End Sub