Thanks for replying but I finally solve my problem using this :
Regards
Alain
Code:
Dialog_Text = Browser("Connexion à PeopleSoft").Dialog("Microsoft Internet Explorer").GetVisibleText
Message_Dialog = Split(Dialog_Text, Chr(10), -1, vbTextCompare)
Then :
Message_Dialog(0) = First line
Message_Dialog(1) = Second line
....Regards
Alain

