Problème QueryTables en fin de Macro

Bonjour,

Tout nouvellement inscrit sur le forum je viens vers vous pour un soucis de macro qui va surement paraître anodin pour des aguerris d'excel comme vous. Mais il parait qu'il n'y a pas de question bête...

Avant d'exposer mon problème, je précise que je suis novice en langage VBA et que je suis sur Excel 2016.

Voici ma problématique:

Je travaille en ce moment sur la rubrique Comité d'Entreprise de l'intranet de mon entreprise et je souhaiterais transférer des éléments (nom des activités proposées, personnes inscrites,...) sur la feuille 1 de mon classeur excel pour effectuer un tri dans un tableau sur la feuille 2 de mon classeur.

En puisant sur internet et sur le forum (Steelson et H2SO4 m'ont beaucoup aidé), j'ai d'ores et déjà réussi à faire une macro qui rentre mon identifiant et mon mot de passe, navigue dans les différentes page par le biais de la "fonction"

ie.navigate("http://XXX")

Mais je bloque à présent avec la fonction Querytables qui ne me copie pas la page souhaitée...

Ci dessous la fin de mon code (je mets des XXX dans l'url pour une histoire de confidentialité car j'ai le nom de mon entreprise qui apparaît)

Description début de macro qui marche : Je vais sur la page d'accueil via IE.navigate("https://accueil.XXX"), je rentre mes identifiants et mdp.

Fin de macro qui marche pas:

IE.navigate ("https://comitealliancece.XXXX")

Sheets("Feuil1").Cells.Clear

    Sheets("Feuil1").Select
    Cells.Select
    Selection.ClearContents
    Range("A1").Select

   With Sheets("feuil1").QueryTables.Add(Connection:= _
      "URL;" & IE.navigate, Destination:=Sheets("feuil1").Range("$A$1"))
        .Name = "intranet"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
     End Sub
    

Restant disponible,

René

Pour être plus claire je souhaiterais simplement coller la page web ouverte dans mon navigateur IE, dans la feuille 1 de mon fichier Excel.