Script pour copier/coller supprimer

Bonjour,

j'ai un script qui ne foctionne pas. le but est de copier des fichier d'un répertoire, de les coller dans un autre et de les supprimer à la fin si tout c'est bien passé.
cependant, aprés que la copie se soit bien déroulé et que j'ai recu le message "fin de copie", il passe direct a la ligne à la ligne erreur.
est ce que vous voyez un probléme particulier? merci

Sub Main()
	
	On Error GoTo Erreur

	Dim files() As String
	Dim dirs() As String
	Dim date_debut As Variant
	Dim date_fin As Variant
	Dim source,destination As String

	chdrive("c:")
	chdir("c:\archive_isergie")
	FileList files,"*.csv"
	NB_fichiers = ubound(files)
	
		
		For N = lbound(files) To Ubound(files) 

		Source = "C:\archive\" & files(N)
		Destination = "S:" & files(N)
		filecopy source,destination

		Next N

	 	Poub = msgbox ("Fin de copie." & Chr(13))
		
		If listboxdialog.checkbox1 = 1 Then
				
			Poub = Msgbox("Debut d'effacement des " & nb_fichiers & " fichiers sur C:\archive",52,"Message")
			If poub = 6 Then
				
				For N = lbound(files) To Ubound(files) 
					Source = "c:\archive\" & files(N)
					Kill source
				Next N
				Poub = msgbox ("Fin d'effacement des fichiers d'archive.",64,"Message" )
			End If
	End If


Exit Sub

Erreur:

	 Poub = msgbox ("Erreur pendant la sauvegarde" & Chr(13),16,"Erreur")

End Sub