Automatically copy data to other cells every 5 minutes, multi sheets

Hi i would like to copy data from cell A1 to B column automatically every 5 minutes but with multi sheets.
The code i have so far works, but it will only copy cell A1 to cell B1 if i am on the current sheet.
Is it possible to have it copy for all sheets.

I have this in "this workbook"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'Stop execution when workbook closes
 On Error Resume Next
 Application.OnTime Heure, "Calcul", , False
End Sub

Private Sub Workbook_Open()
 'start execution when workbook opens
 Application.OnTime Now + TimeValue("00:05:00"), "Calcul"
End Sub

And this in module 1

Sub Calcul()
 Heure = Now + TimeValue("00:05:00")
 Application.OnTime Heure, "Calcul"
 Range("b19666").End(xlUp).Offset(1) = [a1]
End Sub