le code dans la Feuil1 :
Private Sub Worksheet_Activate()
Application.Wait Now + TimeSerial(0, 0, 5)
ThisWorkbook.Sheets(2).Activate
End Sub
le code dans la 2
Private Sub Worksheet_Activate()
Application.Wait Now + TimeSerial(0, 0, 5)
ThisWorkbook.Sheets(1).Activate
End Sub
pour lancer l'alternance, il suffit de changer de feuille active
Pour arrêter la macro, il faut faire Ctrl+pause. (pas moyen de sortir autrement d'une telle macro.
voilà.