Plantage excel suite à compilation de fichiers

[turz]

Bonsoir à tous,

Lorsque je lance une compilation de fichier via la macro suivante, excel plante :

Sub Importer()
  Dim nf As String
  Dim strPath As String
  Dim synthese As Workbook
  Dim wbkSource As Workbook
  Dim wksSource As Worksheet
 
  strPath = ActiveWorkbook.Path
  Set synthese = ActiveWorkbook
  nf = Dir(strPath & "\*.xlsm")
  Application.EnableEvents = False
 
  Do While nf <> ""
    If nf <> synthese.Name Then
      Set wbkSource = Workbooks.Open(Filename:=strPath & "\" & nf)
      For Each wksSource In wbkSource.Worksheets
        wksSource.Copy After:=synthese.Sheets(synthese.Sheets.Count)
      Next wksSource
      wbkSource.Close False
    End If
    nf = Dir
  Loop
 
  Application.EnableEvents = True
End Sub

Je compile des fichiers possédant 3 onglets, dont un comportant des listes pour le premier. 2 des 3 onglets sont cachés. Peut être est-ce la source du plantage ?

Serait il possible de dire à la macro de ne récupérer seulement les onglets 'Resultats' dans les fichiers qu'il compile un par un ?
Par exemple lui dire de récupérer les feuilles 'wksSource' qui ne commence seulement par Resultat...

En vous remerciant de votre aide !