Erreur 13 - Entre IE et HTMLDocument

[inouekun]

Bonjour,
J'ai un problème avec ce bout de code :

Function Test_mot_dans_URL_Existe(titre As String) As Boolean
    'Nécessite d'activer la référence
    '"Microsoft Internet Controls"
    'et
    '"Microsotf HTML Object Library"
    Dim trouve As Boolean
    Dim IE As New InternetExplorer
    Dim winShell As New ShellWindows
    Dim maPageHtml As HTMLDocument
    Test_mot_dans_URL_Existe = True
   
    trouve = False
    For Each IE In winShell
    

        Set maPageHtml = IE.document
        'MsgBox "page : " & maPageHtml.url & "  -Test : " & titre & "" & (InStr(maPageHtml.url, titre))
        If (InStr(maPageHtml.url, titre) <> 0) Then
            
            MsgBox "page : " & maPageHtml.Title
            trouve = True
            Set maPageHtml = Nothing
        End If
    Next
    If trouve = True Then
        MsgBox "1"
        Test_mot_dans_URL_Existe = True
    Else
        MsgBox "2"
        Test_mot_dans_URL_Existe = False
    End If
 
  
End Function

Sur la ligne Set maPageHtml = IE.document, j'ai une erreur 13 (incompatibilité de type), mais je ne comprends pas pourquoi.
Si je rajoute un On Error Resume Next avant le for, je n'ai plus cette erreur, mais le code marche mal, ça me met toujours trouve à true, même lorsque la page n'existe pas, alors que ça ne passe pas dans le if où je mets la variable à true, je ne comprends pas ^^"
J'ai fait comme sur beaucoup de sites.
Si vous trouvez la raison du pourquoi, merci de me l'indiquer,
Merci beaucoup pour votre aide
Laetitia