Bonjour,

J'ai un soucis lorsque je souhaite appliquer ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Copie()
 
 
Dim shtoto As Worksheet
   Set shtoto = Sheets.Add(After:=Sheets(Sheets.Count))
   shtoto.Name = "toto"
 
   ActiveSheet.Range("A1:C7").Copy shtoto.Range("A1")
 
 
End Sub
Lorsque je lance ce code, il me crée bien ma sheets (feuille) mais ne me copie rien du tout dans la sheets.
Lorsque je retire la création de mon sheets, et je crée manuellement mon sheets, la copie fonctionne.

Avez vous une idée du problème ?

Merci d'avance