cet exemple permet de boucler sur toutes les pages IE ouvertes et d'afficher leur URL
ensuite pour fermer la page , utilises IE.Quit
Sub listerFenetres_IE_Ouvertes()
'activer la référence 'Microsoft Internet Controls'
Dim IE As internetExplorer
Dim winShell As New shellWindows
On Error Resume Next
For Each IE In winShell
If IE.LocationURL <> '' Then MsgBox IE.LocationURL
'IE.Quit 'option pour fermer les fenetres
Next IE
End Sub