Bonjour TeamG1 et le forum,
Ce n'est pas vraiment ce que vous recherchez, mais avec :
Sub test()
With CreateObject("Outlook.Application")
MsgBox (GetNamespace("MAPI").CurrentUser)
End With
End Sub
On retrouve au moins le nom et prénom, à adapter pour rajouter le reste de l'adresse.
Cordialement,
IB