MACRO Qui ne s'execute pas dans certains fichier

[pledger]

Bonjour,

Je souhaiterai concaténé tous les onglets de mon classeur à l'aide de cette macro :

Sub test1()
Dim Wb As Workbook, F As Worksheet, w As Worksheet
Application.ScreenUpdating = False
For Each Wb In Workbooks
If Wb.Name Like "Analyse*" Then
On Error Resume Next
Set F = Wb.Sheets("Concaténation")
If Err Then 'si la feuille n'existe pas
Set F = Wb.Sheets.Add 'crée une nouvelle feuille
F.Name = "Concaténation" 'renomme cette feuille
End If
For Each w In Wb.Worksheets
If w.Name <> F.Name Then _
w.Range("1:" & w.[A65536].End(xlUp).Row).Copy F.[A65536].End(xlUp)(2)
Next
If Application.CountA(F.[1:1]) = 0 Then F.[1:1].Delete 'si la ligne 1 est vide
End If
Next
End Sub

Cependant elle ne s'execute pas dans 3 classeurs alors que celle ci à très bien marcher sur les autres, et je commence un peu à désespérer :/

Merci d'avance pour votre aide

 

[pledger]

Re : MACRO Qui ne s'execute pas dans certains fichier

Problème résolut merci