Impossible d'ouvrir un USF

Bonjour à tous,

J'essaie de créer un nouveau fichier sur la base d'un ancien.

Lorsque je refais le UserForm1 (j'ai créé un nouveau USF et ai copié ensuite le code associsé). Je créé ensuite un bouton sur la feuille pour pouvoir ouvrir ce UserForm1,

Et là.... débogage qui me renvoie sur un PB avec le UserForm1...

Je ne comprends pas, c'est exactement la même chose que sur l'autre fichier, je n'ai fait que transposé, eh bien ça bug....

Merci d'avance pour votre aide !

Edit modo : fichier avec liaisons interminables supprimé... merci d'y faire attention

Après avoir copier/coller le code par morceau, c'est sur celui-ci que ça plante :

'Pour le formulaire
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim J As Long, i%, L%
With Worksheets("BC")
    L = .Range("DK" & Rows.Count).End(xlUp).Row
    For J = 10 To L
        Me.ComboBox1.AddItem .Range("DK" & J)
    Next J
    If InStr(1, .Cells(L, 115), " ") = 0 Then
        Me.TextBox20 = .Cells(L, 115) + 1
        Else
        Me.TextBox20 = Left(.Cells(L, 115), InStr(1, .Cells(L, 115), " ") - 1) + 1
    End If

    Me.Label71 = .Range("DK1048576").End(xlUp).Rows
End With
Application.ScreenUpdating = True
End Sub

J'ai trouvé, il faut que je mette "1" en colonne H10