Activate this popup html

[clif]

Sub abc()

Application.ScreenUpdating = False
    
 Dim wb As Workbook
 Dim ws As Worksheet
 Dim a As Integer

 
 Set wb = ThisWorkbook
 Set ws = wb.Sheets("abc")
 
  For a = 5 To 100
  
   Dim objIe As Object, xobj As HTMLDivElement
    'Set objIe = CreateObject("InternetExplorer.Application")
    Set objIe = New InternetExplorerMedium
    
    objIe.Visible = True
    objIe.navigate ws.Cells(1, 2).Value
    
    
While objIe.Busy: DoEvents
Wend
Do
Loop Until Not (objIe.Busy)



Application.Wait (Now + TimeValue("0:00:03"))
objIe.document.all(ws.Cells(2, 2).Value).Value = ws.Cells(a, 1)
Application.Wait (Now + TimeValue("0:00:02"))
objIe.document.all(ws.Cells(3, 2).Value).Click
Application.Wait (Now + TimeValue("0:00:05"))
objIe.document.getElementById(ws.Cells(4, 2).Value).Click

then popup html

How to activate this popup html and input the data into this by using excel vba?

Thanks!

[snb]

A quoi bon ?

[clif]

A quoi bon ?

???