Recherche données sur internet

Bonjour tout le monde,

j'ai un programme qui me permet d'aller chercher des informations sur plusieurs page internet sauf que c'est un peu long il met plus d'une minute à s'executer alors qu'il n'y a que 4 pages internet à consulter.

Voila le code en question ci-dessous:

Option Explicit

Private Sub CommandButton1_Click()
Dim i, j, a, b, c, d
i = 0
j = 1

Do While Sheets("feuil1").Range("a" & j) <> ""
    Workbooks.Open Range("a" & j)
    Windows(1).Activate
    Sheets(1).Range("A1").Select
    a = Sheets(1).Cells.Find(What:="Cours", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Address
    
    Sheets(1).Range(a).Select
    b = ActiveCell.Row
    c = ActiveCell.Column

    Do While Sheets(1).Cells(b, c + 1) = ""
        Sheets(1).Cells.FindNext(After:=ActiveCell).Activate
        b = ActiveCell.Row
        c = ActiveCell.Column
        i = i + 1
        If i > 20 Then
            Exit Do
        End If
    Loop

    d = Sheets(1).Cells(b, c + 1)
    ActiveWorkbook.Close (False)
    Windows("Nouveau Feuille de calcul Microsoft Excel.xlsm").Activate
    Sheets(1).Range("n" & j) = d
    j = j + 1
    
Loop

End Sub

Avez-vous une solution pour reduire le temps d'execution du code ou alors faut-il changer la facon de faire?

Merci pour vos réponse :)

Cordialement

EDIT: Spécification du langage dans la coloration syntaxique.