Sub Actualisation_Données_CCS()
'Classeur destination des copies
Dim wk As Workbook
Set wk = Workbooks("Adhérence à chaud.xls")
ChDir "T:\Enregistreur Bandeau"
'Ouverture fichier
Workbooks.Open Filename:="T:\Enregistreur Bandeau\enregistreur.xls", Notify:=False
'Copy et collage dans la feuille "Flux"
Columns("A:F").Copy Destination:=wk.Sheets("Flux").Range("A1")
'Copy et collage dans la feuille "GT"
Sheets("GT").Columns("A:F").Range("A8634").Copy Destination:=wk.Sheets("GT").Range("A1")
Application.CutCopyMode = False
'Fermeture du fichier source
Workbooks("enregistreur.xls").Close
'Activation de Flux!I15
Application.Goto wk.Sheets("Flux").Range("I15")
'La procédure se rappelera elle-même 10 minutes après
Application.OnTime _
EarliestTime:=Now + TimeValue("00:10:00"), _
Procedure:="Actualisation_Données_CCS", _
Schedule:=True
End Sub