Bonjour à tous

j'ai une erreur sur le code suivant:

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
Sub test()
 
Dim Wb As Workbook
Dim Ws As Worksheet
Set Wb = ThisWorkbook
Set Ws = Wb.ActiveSheet
Dim nombre_de_lignes As Integer
nombre_de_lignes = Ws.Range("A65536").End(xlUp).Row
Dim ligne_debut As Integer
ligne_debut = 2
Dim ligne_fin As Integer
ligne_fin = 10
 
Wb.Sheets.Add(After:=Sheets(Wb.Sheets.Count)).Name = Ws.Cells(ligne_debut, 1)
'ou
'Wb.Sheets.Add After:=Sheets(Wb.Sheets.Count)
'Wb.Sheets(Wb.Sheets.Count).Name = Ws.Cells(ligne_debut, 1)
 
Ws.Range(Cells(ligne_debut, 1), Cells(ligne_fin, 4)).Copy
ThisWorkbook.Worksheets("test").Paste Destination:=ThisWorkbook.Worksheets("test").Range("A1")
 
End Sub
Mon problème :

La ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Wb.Sheets.Add(After:=Sheets(Wb.Sheets.Count)).Name = Ws.Cells(ligne_debut, 1)
marche mais le programme bloque à
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Ws.Range(Cells(ligne_debut, 1), Cells(ligne_fin, 4)).Copy
Si je n'insére pas de feuille mon code .Copy marche...

Merci d'avance