Bonjour,

Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 If C_PERIODE = 1 Then
        For Each ws In ThisWorkbook.Worksheets
            If Left(ws.Name, 4) = "Data" And Premier = False Then
               Nom_Feuille = ws.Name
 
               Worksheets(Nom_Feuille).Select
               Worksheets.Add.Name = C_ANNEE
               Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "Data " & C_ANNEE
 
               Nom_Feuille = C_ANNEE - 1
               Worksheets(Nom_Feuille).Select
               Cells.Select
               Selection.Copy
 
               Nom_Feuille = C_ANNEE
               Worksheets(Nom_Feuille).Select
               ActiveSheet.Paste
               Premier = True
 
            End If
         Next ws
    End If
J'ajoute deux feuilles, je copie le contenu d'une feuille dans une des nouvelles que je viens de créer.

Le code fonctionne bien, mais pourquoi après le paste la boite de dialogue m'affiche pour enregistrer mon fichier.

Merci