Macro en VBA qui plante parfois sur une instruction

Bonjour,

J'ai une macro en VBA qui plante parfois sur une instruction.

Cette macro copie une feuille "Bilan_001" en autant de nouvelles feuilles
que d'entités se trouvant dans la feuille "calendar".

Parfois la macro va jusqu'au bout, mais la plupart du remps, elle s'arrête
sur l'instruction Shxx.Copy After:=Sheets(j)

Je ne comprends pas pourquoi.

Si je relance la macro après avoir supprimé les feuilles créées, ca plante
dès le départ ! Si je ferme puis réouvre la feuille excel , la macro va
plus loin et crée une trentaine de feuilles (la macro devrait en créer 62)

Le message d'erreur est "La méthod copy de la classe worksheet a échoué"

Merci pour vos conseils

Le code :


Sub Creation_Balance_sheet_spreadsheet()

Dim i, j As Integer
Dim Sh, Shxx, Shyy As Worksheet
Dim Entity_id As String

Set Sh = ActiveWorkbook.Worksheets("Calendar")
Set Shxx = ActiveWorkbook.Worksheets("Bilan_001")

j = Shxx.Index

Application.ScreenUpdating = False

For i = 16 To Sh.Range("A65535").End(xlUp).Row

Entity_id = Sh.Cells(i, 1).Value
Shxx.Activate
Shxx.Copy After:=Sheets(j)
Sheets(j + 1).Name = "Bilan_" & Entity_id
Sheets(j + 1).Cells(15, 3).Value = Entity_id
Sheets(j + 1).Range(Cells(17, 1), Cells(53, 12)).Name = Sheets(j +
1).Name
Sheets(j + 1).Range(Cells(61, 15), Cells(81, 22)).Name = "PL_" &
Entity_id
Sheets(j + 1).Visible = True
j = j + 1

Next i

Application.ScreenUpdating = True

End Sub