MACRO Qui ne s'execute pas dans certains fichier

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

Cliquez pour agrandir...