Je voudrais que les liaisons de mon classeur vers un autre ne se fassent pas seulement à l'ouverture mais toutes les 10 minutes. Comment faire ?

sub maj
 liaisons = ThisWorkbook.LinkSources
 If Not IsEmpty(liaisons) Then
  For num = 1 To UBound(liaisons)
  ActiveWorkbook.UpdateLink liaisons(num)
  Next
 End If
 If Range("a1") = 1 Then Application.OnTime Now + 10/60/24, "maj"
end sub

attention à la dernière ligne, pour arrêter la macro, mettre 0 dans la cellule a1, sinon, la macro va tourner éternellement !