Timer 4 feuilles

Bonjour,

j ai toujours le même soucis avec le fichier 4 feuilles
le code ne fonctionne, pas pouvez vous me dire ce qui ne va pas?? il n y a pas de collage des cotations qui se font (même plus sur la première feuille ,faut il revenir au code antérieur???, ou cela collait sur la première feuille seulement , a ce moment la si il n y a pas de solution je ferais 4 fichiers c'est pas très pratique mais je ferais avec

Option Explicit

Dim marches() As Worksheet

Sub copy_dh()
Dim marche As Variant
Dim fl As Worksheet
For Each marche In marches
Set fl = marche
    Call copy_dhfl(fl)
Next marche
End Sub
Private Sub copy_dhfl(sh As Worksheet)
sh.Range("D12:H51").Value = sh.Range("AS12:AW51").Value
sh.Range("C12:C51").ClearContents
sh.Range("C11") = Now
End Sub
Sub init_marches()
ReDim marches(3)
Set marches(0) = Sheets("CAC40")
Set marches(1) = Sheets("AEX")
Set marches(2) = Sheets("BEL20")
Set marches(3) = Sheets("PSI20")
End Sub


Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
copy_dh
End Sub

Private Sub Workbook_Open()
init_marches
End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.