Sub trafic()
Dim RetVal
' Lance Firefox sur une URL spécifiée
RetVal = _
Shell("C:\progra~1\mozill~1\firefox.exe http://www.monadresseinternet.com", 1)
ident = "xav475"
mdp = "jeanjean"
Application.SendKeys ident, True
Application.SendKeys "{TAB}", True
Application.SendKeys mdp, True
End Sub