Actualisation automatique de classeur à une heure précise

Bonjour,

Novice en VBA, j'essaye d'adapter ce code pour actualiser des classeurs ( xlsm) liés au web par une macro déclenchée automatiquement à une heure précise. L'actualisation se fait en activant, les uns après les autres, par une boucle, des liens hypertexte situés dans la colonne d'un tableau( feuil2) d'un autre classeur (analyse S-J.xlsm). Malheureusement, la boucle n'actualise que le classeur lié au lien hyper texte de la 1ère cellule de la colonne sans passer au suivantes ??? Pourriez-vous m'aider , voici le code...

Sub For_Each_Next_Plage()

Dim FL1 As Worksheet, Cell As Range, Plage As Range

Dim Var1

Set FL1 = Worksheets("Feuil2")

With FL1

'Détermination de la plage de cellules à lire

Set Plage = .Range("A1:A4")

For Each Cell In Plage

'Valeur de la cellule lue

Var1 = Cell.Value

Ici la macro n'active que le 1er lien hypertexte de la 1ère cellule sans passer au suivant

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

ActiveWorkbook.RefreshAll

ActiveWorkbook.Save

ActiveWindow.Close

Ici est-ce possible d'indiquer la formule pour l'heure d'exécution automatique

Next

End With

Set FL1 = Nothing

Set Plage = Nothing

End Sub

Merci d'avance