XL 2013 Macro d'importation ne s'execute pas

Bonjour.
Je suis encore un petit nouveau dans le code vba.
Alors dans le cadre de mon stage j'ai ecris une macro me permettant d'importer un fichier excel.
cependant il ne s'execute pas.
Besoin de votre aide.

Voici le code :

Sub ChargementDonneesTel()

'Application.Dialogs(xlDialogOpen).Show
'nomfich = Application.GetOpenFilename
'If nomfich = False Then Exit Sub


Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim wbkF As Workbook
Dim wbSource As Workbook

Dim vFichiers As Variant
Dim rg, montantMax As Long
Dim temp, temp1, nbTranche, nColumn As Integer
temp = 0

Set wbkF = ThisWorkbook
vFichiers = Selectionner_Fichiers("Sélectionner les fichiers à compiler")

' --- Vérifier qu'au moins un fichier à été sélectionné
If Not IsArray(vFichiers) Then
' Debug.Print "Aucun fichier sélectionné."
MsgBox "Erreur! Aucun/Mauvais fichier sélectionné."

Exit Sub
End If
On Error Resume Next


' deleteFeuille ("Feuil3")
For k = 1 To UBound(vFichiers)
'Application.StatusBar = ">> Lecture du fichier #" & k & "/" & UBound(vFichiers)

'on ouvre le fichier
Set wbSource = Workbooks.Open(vFichiers(k))

wbkF.Sheets("Feuil1").Activate
Range("A2:L1048576").ClearContents

For Each ws In wbSource.Worksheets
'If ws.Name = "Feuil3" Then
Application.ScreenUpdating = False
ws.Activate

Range("A1:" & [A1].SpecialCells(xlCellTypeLastCell).Address).Copy

wbkF.Sheets("Feuil1").Activate
'Range("A2:L2").ClearContents
Range("A2").End(xlUp).Offset(0, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
' temp = 1
' End If
' If temp = 1 Then
' Exit For
' End If

Next ws
wbSource.Close savechanges:=False 'fermer fichier
Set wbSource = Nothing
Next k
wbkF.Sheets("Feuil1").Activate
ActiveWorkbook.RefreshAll
MsgBox ("Opération Terminée ")


End Sub