Sub Activer()
Static n, t 'mémorise les variables
Dim x, F1 As Worksheet, F2 As Worksheet
x = 1 'temps en minutes, à adapter
n = n + 1
On Error Resume Next
Set F1 = Workbooks("A.xlsm").Sheets("Feuil1") 'fichier et feuille à adapter
Set F2 = Workbooks("B.xlsm").Sheets("Feuil2") 'fichier et feuille à adapter
F1.Visible = xlSheetVisible: F2.Visible = xlSheetVisible 'si une des feuilles est masquée
Application.Goto IIf(n Mod 2, F1, F2).[A1]
Application.OnTime t, "Activer", , False
t = Now + x / 1440
Application.OnTime t, "Activer"
End Sub