Macro pour un seul classeur

Sub synthese()


Dim Wb As Workbook
Dim Ws As Worksheet
Dim Cellule As Range
Dim Nbligne As Integer
Dim Tab1() As String
Dim test As String
Dim test1 As String
Dim I As Integer


Application.ScreenUpdating = False

x = 0
ReDim Tab1(10, x)

'Défiltrer tous les onglets
On Error Resume Next
For Each sh In Sheets
    sh.ShowAllData
Next sh

Windows("Master SuiviIP ARA vdef.xlsm").Activate
For Each Ws In ThisWorkbook


If Ws.Name <> "admin" And Ws.Name <> "Synthèse OC" And Ws.Name <> "Synthèse" And Ws.Name <> "Template" Then

    Ws.Activate
    Range("B3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Nbligne = Selection.Rows.Count
    
    Range("N3", "N" & Nbligne + 3).Select
   
    
    For Each Cellule In Selection
    
         If Cellule.Value = ActiveSheet.Name Then
                x = x + 1
                ReDim Preserve Tab1(10, x)
                Tab1(1, x) = Cellule.Offset(0, -12) 'DA
                Tab1(2, x) = Cellule.Offset(0, -9) 'MNG
                Tab1(3, x) = Cellule.Offset(0, -11) 'Consultant
                Tab1(4, x) = Cellule.Offset(0, -5) 'Client
                Tab1(5, x) = Cellule.Value 'Semaine démarrage
                Tab1(6, x) = Cellule.Offset(0, 1) 'OC
                Tab1(7, x) = Cellule.Offset(0, 6) 'Embauche
                Tab1(8, x) = Cellule.Offset(0, 7) 'type embauche
                Tab1(9, x) = Cellule.Offset(0, 9) 'Semaine sortie
                Tab1(10, x) = Cellule.Offset(0, 10) 'Cause sortie
                
            
        End If
    Next Cellule
End If

Next Ws


Worksheets("Synthèse").Activate

J = 0
For I = x To 0 Step -1
J = J + 1
Cells(2 + J, 2) = Tab1(1, I)
Cells(2 + J, 3) = Tab1(2, I)
Cells(2 + J, 4) = Tab1(3, I)
Cells(2 + J, 5) = Tab1(4, I)
Cells(2 + J, 6) = Tab1(5, I)
Cells(2 + J, 7) = Tab1(6, I)
Cells(2 + J, 8) = Tab1(7, I)
Cells(2 + J, 9) = Tab1(8, I)
Cells(2 + J, 10) = Tab1(9, I)
Cells(2 + J, 11) = Tab1(10, I)


Next I