Hé oui j'ai encore un problème de syntaxe que je n'arrive pas à comprendre
Pourtant j'ai regardé les structure sur les forum et tuto mais ca ne marche tjs pas
Le pb est sur le select
Voila 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
 
Sub Copie()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
    Sheets("Janvier").Copy After:=Sheets(i)
 
    Select Case i
        Case 1
            ActiveSheet.Name = "Fevrier"
        Case Else
            ActiveSheet.Name = "Error"
    End Select
 
Next i
 
End Sub
Merci d'avance