XL 2010 recherche_avancee_formulaire_vba

Bonjour,

Je me permets de solliciter votre aide. Je vous en remercie par avance.
Une de mes missions est en tant que stagiaire (n'ayant pas pisser assez de code) de faire un programme en VBA pour effectuer une recherche avancée sur un site internet (je me suis largement inspirée d'une de vos précédente conversation sur ce forum).
J'ai essayé de mettre un code NAFdans la partie du formulaire adéquate et j'essaye de lancer la recherche en actionnant le bouton par .Click
Voici le code au 13/02,

Sub PiloterInternet()

Const MY_URL As String = "https://www.verif.com/recherche/"
Const NAF As String = "3511Z"
Dim IE As Object 'SHDocVw.InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")

With IE
.Silent = False
.Navigate MY_URL
Do Until .ReadyState = 4
DoEvents
Loop

Set IEdoc = IE.Document

Set DOCelement = IEdoc.getElementsByName("i_code_ape").Item
DOCelement.Value = NAF
Set bouton = IEdoc.getElementsByName("btn btn-primary").Item
bouton.Click

.Visible = True
End With
Set IE = Nothing
End Sub


Merci d'avance, bonne journée