XL 2010 Connexion sur un site web via chrome

Sub Connexion()

  'Déclaration des variables
   Dim ie As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
    Dim DOCeelement As Object
    Dim htmlSelectElem As HTMLSelectElement
    Dim FormBouton As HTMLFormElement
    Dim FormBrowse As HTMLFormElement
    Dim FormReboot As HTMLFormElement
 

 
'For i = 110 To 112

    'Initialisation des variables
   Set ie = CreateObject("InternetExplorer.Application")
    
    'Affichage de la fenêtre IE
   ie.Visible = True
    
     'Chargement de la page web
   ie.navigate Range("C" & i).Value
 
    ' attente de fin de chargement
   Do Until ie.readyState = 4
        DoEvents
    
    Loop
 
    'On pointe le membre Document
   Set IEdoc = ie.document
    
    'Tempo de 2 secondes
   Application.Wait Now + TimeValue("0:00:01")
  
  
Set FormBouton = IEdoc.all("Connexion")


    'On simule un clic
   FormBoutonS.Click
  
    
    'Selection du superviseur
'On va sur l'objet qui contient la liste des indices
Set htmlSelectElem = IEdoc.all("userlevel")

'On sélectionne l'indice "superviseur" via sa valeur unique
htmlSelectElem.Value = "supervisor"
    
    'Tempo de 2 secondes
   Application.Wait Now + TimeValue("0:00:01")
 
    'password
   Set DOCelement = IEdoc.all("fieldpassword").Item
    DOCelement.Value = "Supervisor0002!" 'Range("M2").Value
    'DOCelement.Select
 
    'Tempo de 2 secondes
   Application.Wait Now + TimeValue("0:00:01")
 
SendKeys "{ENTER}"

'Tempo de 2 secondes
   Application.Wait Now + TimeValue("0:00:01")
  
  ' Next
end sub