<td width="13%" align="center" rowSpan="1" colSpan="1">
   <input name="" onclick="Javascript:document.forms[0].submit();return false;" type="image" srx="/cmh/cmh/xxxxxx" border="0"></input>

Sub ToComb()
 Dim ie  As Object
 Dim itm As IHTMLElement

 Set ie = CreateObject("InternetExplorer.Application")
 ie.Visible = True
 ie.navigate "http://icc-
 cadb.eu.airbus.corp:8087/cmh/consultation/preSearchTRSTDMAS.do?
 clearBackList=true&CMH_NO_STORING_fromMenu=true"
  While ie.Busy Or ie.readyState <> 4: DoEvents: Wend

  Set itm = ie.document.getElementsByName("searchByTRSMP")(0)
   If Not itm Is Nothing Then itm.Value = "k20734"
   Set Doc = ie.document


    Set tags = ie.document.getElementsByTagName("")
    For Each tagx In tags
     If tagx.Value = "Next" Then
     tagx.Click
    Exit For
   End If
 Next
End Sub

Set tags = ie.Document.GetElementsByTagname("Input")

For Each tagx In tags
    If tagx.srx= "/cmh/cmh/xxxxxx" Then
        tagx.Click
    End If
Next