Mon fichier Excel se ferme à l'exécution de mon code VBA

Bonjour, mon nom c'est François aidez moi s'il vous plait mon fichier excel se ferme à l'execution de mon code VBA qui consiste a stocker les donnés d'un userform à une base de donnée d'une feuille du même fichier. je suis confus je ne sais plus quoi faire. Quand je fait le pas à pas (F8) je me rend compte que c'est ce code :

'Ajouter une nouvelle ligne

Sheets("DEPOT").ListObjects(1).ListRows.Add

qui est à la base mais je ne sais quoi faire pour résoudre ce problème

voici tout mon code

Private Sub CommandButton1_Click()
On Error Resume Next
'Raffraichissemment de l'ecran
Application.ScreenUpdating = False

'Masquer le ruban
Application.DisplayFullScreen = True
'On Error Resume Next
'Déclaration de variable
Dim DPL As Integer
Dim DEPOT As Sheets
If Me.NPCL <> " " Then

If MsgBox("Voulez-vous valider ces informations?", vbYesNo, "CONFIRMATION") = vbYes Then


'Rechercher la dernière ligne
DPL = Sheets("DEPOT").Range("J1048574").End(xlUp).Row

'Ajouter une nouvelle ligne
Sheets("DEPOT").ListObjects(1).ListRows.Add

'Incrémentation du numéro ID
Sheets("DEPOT").Range("J" & DPL) = Sheets("DEPOT").Range("L2")

'Ajouts d'informations

Sheets("DEPOT").Range("A" & DPL) = Me.DDCL
Sheets("DEPOT").Range("B" & DPL) = Me.NPCL
Sheets("DEPOT").Range("C" & DPL) = Me.GDCL
Sheets("DEPOT").Range("D" & DPL) = Me.NCCL
Sheets("DEPOT").Range("E" & DPL) = Me.NOCCL
Sheets("DEPOT").Range("F" & DPL) = Me.NOACL
Sheets("DEPOT").Range("G" & DPL) = Me.NPACL
Sheets("DEPOT").Range("H" & DPL) = Me.MDCL


'Incrémentation du N°ID
Sheets("DEPOT").Range("L2") = Sheets("DEPOT").Range("L2") + 1

'Nettoyage des comboboxs
DDCL = " "
NPCL = " "
GDCL = " "
NCCL = " "
NOCCL = " "
NOACL = " "
NPACL = " "
MDCL = " "
MsgBox "Vos informations sont enrégistrés en toute sécurité!", Okonly + vbInformation, "CONFIRMATION"

'Fermeture du formulaire
Unload Me

'Enrégistrement
' enr Macro
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save

'Rafraichir le forulaire

DEPOTS.Show

End If
End If
End Sub