Dupliquer un workbook

Private Sub Workbook_Open()
'on masque une feuille qui nous sert pour extraire des recettes suivant un filtre élaboré
' Macro à recopier pour copier dans chque cache de cible les changement de données.
'C'est sur les caches que seront effectué les renvois dans les listes
'qui sont affichées dans pour l'étude
ActiveWorkbook.Sheets("maFeuilleAttente").Activate
'
'je copie dans le cache les données de la feuille cible1,
'pour prendre en compte dans mes calculs les évolutions futures (ajout de préoccupation ...)
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False

ActiveWindow.DisplayWorkbookTabs = False 'je désactive l'affichage des onglets "feuil"

Application.ScreenUpdating = False ' je bloque l'ecran sur la feuille "maFeuilleAttente"
Dim i As Integer
Dim j As String
Dim k As Integer
Dim l As Integer
'macro à copier à dans les feuilles données cibles si on fait un changement de donnée, pour avoir les répercussions directes

For i = 1 To 14
    j = i

    Sheets("Données Cible" & j).Select
    Range("E9:F100").Select
    Selection.Copy
    Sheets("Cachecible" & j).Visible = True
    Sheets("Cachecible" & j).Select
    Range("A4").Select
    ActiveSheet.Paste
    
    Sheets("Données Cible" & j).Select
    Range("M9:P100").Select
    Selection.Copy
    Sheets("Cachecible" & j).Select
    Range("C4").Select
    ActiveSheet.Paste
Sheets("Données Cible" & j).Select
Range("A6").Select
    
    
Next i
For i = 1 To 14
    j = i
Sheets("Cachecible" & j).Visible = True
Next i

For i = 1 To 14
    j = i
Sheets("Données cible" & j).Tab.ColorIndex = 4
Next i
 '[COLOR="DarkGreen"]voici ce qu'il faudrait désactiver: je ne veux pas que la réinitialisation  (le fait de mettre des "?" dans les cellules au démarrage) se fasse lors d'un nouvel enregistrement "saveAs"...[/COLOR]
For i = 1 To 14
    j = i

    Sheets("Cible" & j).Select
  
            For k = 4 To 36
            If IsEmpty(Cells(k, 3)) = False Then
            Cells(k, 4).Value = "?"
            End If
        Next k
       '-- Appliquer une couleur jaune à l'onglet de la Feuil1
    Sheets("Cible" & j).Tab.ColorIndex = 6
Next i
 ' je fais appel au module "initialisation2"
 Sheets("Bilan").Select
For l = 3 To 61
   
        If IsEmpty(Cells(l, 1)) = False And Cells(l, 1).Value <> "Validation possible ?" Then
        Cells(l, 3).Value = "?"
        ElseIf Cells(l, 1).Value = "Validation possible ?" Then Exit For
        End If
Next l
[COLOR="darkgreen"]'fin de la partie evenementielle qui pose probleme[/COLOR]
Sheets("Calcul").Visible = False
Sheets("MOA").Visible = False
Application.ScreenUpdating = True
ActiveWindow.DisplayWorkbookTabs = True


Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Sheets("Bilan").Select
UsfMenu.Show

End Sub