code qui spécifie pour sa copie du fichier de ne pas exécuter les macros

datedujour2 = Format(Date, "yyyymmdd")

Sub CopierFeuilleSansCode()
    Dim VBComp As Variant
    Dim VBComps As Variant
    Dim shtName As String
    Dim saveName As String
    Feuil2.Copy
 
    With ActiveWorkbook
        'ATTENTION NE PAS APPLIQUER CES LIGNES
        'SUR LE CLASSEUR APPELANT
        'TOUTES LES MACROS SERAIENT DETRUITE
        Set VBComps = .VBProject.VBComponents
        For Each VBComp In VBComps
            Select Case VBComp.Type
            Case 1 To 3
                VBComps.Remove VBComp
            Case Else
                With VBComp.CodeModule
                    .DeleteLines 1, .CountOfLines
                End With
            End Select
        Next VBComp
        '----------------------------------------------
        'Si l'utilisateur annule la boîte de dialogue
        'une erreur sera levée lors de l'enregistrement du classeur
        'il faut donc mettre le nom retourné par la boîte de dialogue
        ' dans une variable
        saveName = Application.GetSaveAsFilename( _
                            "\\csaid_v it_fs1\DATA\IMAGES\A.Le Gal\" & _
                            Format(Date, "yyyymmdd") & "_Copie de " & ActiveSheet.Name, _
                            "Microsoft Excel File, *.xls", , "")
 
        'Si la varialble est différente de False
        'C'est que l'utilisateur n'a pas annuler la boîte de dialogue
        If saveName <> False Then
            .SaveAs Filename:=saveName, _
                            FileFormat:=xlNormal, Password:="", WriteResPassword:="introuvable", _
                            ReadOnlyRecommended:=True, CreateBackup:=False
        End If
    End With
 
End Sub

 Set VBComps = .VBProject.VBComponents