Erreur 424 pendant exécution macro.

Bonjour,

Je suis (très novice) en VBA et j'ai un problème lors de l'exécution de ma macro excel dont voici le code:
Option Explicit

Dim F(), Col
Dim Chemin, NomFichier, wb2, Fdép


Sub SyntheseDesOutils()

Application.ScreenUpdating = False
Application.EnableEvents = False



Set Fdép = ActiveSheet
Chemin = ThisWorkbook.Path & "\"
NomFichier = Dir(Chemin & "*.xls*") 'ouvre tous les fichiers .xls*
With Fdép
Do While Len(NomFichier) > 0
If NomFichier <> ThisWorkbook.Name Then
Set wb2 = Workbooks.Open(Chemin & NomFichier) 'Ouvre le fichier
End If

Col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1
.Range("B:B").Copy .Range(.Columns(Col), .Columns(Col + 1))
wb2.Close False
Loop
End With

End Sub



Apparament le code bloque au moment ou je veux fermer la feuille ouverte (ecriture en gras)

Avec vous une idée de ce à quoi c'est du ?

la boucle est reprise en grande partie d'une macro qui fonctionne parfaitement !