Sub piloterPageWeb()
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim i As Integer
Dim IE As internetExplorer
Dim maPageHtml As HTMLDocument
Dim lancer As IHTMLElement
Dim t1 As IHTMLElement
Set IE = CreateObject("internetExplorer.Application")
IE.Visible = True
IE.Height = 800
IE.Width = 1000
IE.Left = 0
IE.Top = 0
IE.navigate "http://famille-frappier.fr/"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
Set maPageHtml = IE.document
'je souhaite selectionner la 2 eme liste deroulante et selectionner la valeur :Noms de Vendée
Set lancer = maPageHtml.getElementById("nav_554_script")
lancer.setAttribute "select", "Noms de Vendée"
'ensuite j'aimerai simuler un clic sur le bouton Envoi sauf que je n'arrive pas a trouver son ID