XL 2013 Transposition de filtres multiples sur plusieurs feuilles

Sub BoutonCopieEssai()
Dim DEPART As Integer 'LIGNE DE DEPART
Dim NrCOL As Integer
Dim serie As Integer 'boucle de décalage de feuille d'année
Dim an As Integer    'sélection de feuille
Dim HTOTAL As Variant
Dim Nr As Integer    'Nr de ligne ou coller le total des heures du filtre
Dim Filtre As Range
If MsgBox("Etes-vous sûr de vouloir actualiser? avez vous penser à modifier vos filtres?", vbYesNo, Selection) = vbYes Then
    Filtre = Application.InputBox(prompt:="Cliquer sur la ligne du filtre à remplir dans la feuille syhthèse", Title:="lIGNE", Type:=8)
    Nr = Filtre.Row - 1
    an = 0
    ' Partie nouvelle
    For Each F In Worksheets                        ' Pour toutes les feuilles
        If F.Name <> "SYNTHESE" Then                ' Excepté la feuille SYNTHESE
            With Sheets(F.Name)                     ' Avec chaque feuille
                If .FilterMode Then .ShowAllData    ' Suppression de tous les filtres
                Sheets("SYNTHESE").[C1].Offset(Nr, an) = .Range("G65534")   ' On copie la valeur de G65534 dans Synthèse
                an = an + 1                         ' On incrémente "an"
            End With
        End If
    Next F
 End If
 End Sub

Sub essai()
Dim NrCOL As Integer
Dim serie As Integer 'boucle de décalage de feuille d'année
Dim an As Integer 'sélection de feuille
Dim HTOTAL As Variant
Dim Nr As Integer 'Nr de ligne ou coller le total des heures du filtre
Dim Filtre As Range
If MsgBox("Etes-vous sûr de vouloir actualiser? avez vous penser à modifier vos filtres?", vbYesNo, Selection) = vbYes Then
    On Error Resume Next
    Set Filtre = Application.InputBox(prompt:="Cliquer sur la ligne du filtre à remplir dans la feuille synthèse", Title:="LIGNE", Type:=8)
    If Filtre = "" Then Exit Sub
    Nr = Filtre.Row - 1
    an = 0
    For Each F In Worksheets            ' Pour toutes les feuilles
        If F.Name <> "SYNTHESE" Then    ' Excepté la feuille SYNTHESE
            With Sheets(F.Name)         ' Avec chaque feuille
                If .FilterMode Then .ShowAllData ' Suppression de tous les filtres
                Sheets("SYNTHESE").[C1].Offset(Nr, an) = .Range("F65534") ' On copie la valeur de F65534 dans Synthèse
                an = an + 1             ' On incrémente "an"
            End With
        End If
    Next F
End If
End Sub

On Error Resume Next
...
If Filtre = "" Then Exit Sub

Sub Propager_Filtres()
     Set Source = [tb_2010].ListObject
'RàZ des anciens filtres
     For Each WS In ThisWorkbook.Worksheets
          If WS.Name <> "2010" And WS.Name <> "SynthèseB" Then
               WS.ListObjects(1).AutoFilter.ShowAllData
          End If
     Next
'Propagation des filtres de la feuille "2010" sur les feuilles des autres année
     For Each Filtre In Source.AutoFilter.Filters
          N° = N° + 1
          If Filtre.On Then
               With Filtre
                    Opérateur = IIf(.Operator = 0, xlAnd, .Operator)
                    Critère1 = .Criteria1
                    Critère2 = "Erreur": On Error Resume Next: Critère2 = .Criteria2: On Error GoTo 0
               End With
               For Each WS In ThisWorkbook.Worksheets
                    If WS.Name <> "2010" And WS.Name <> "SynthèseB" Then
                         With WS.ListObjects(1)
                              If Critère2 = "Erreur" Then
                                   .Range.AutoFilter Field:=N°, Criteria1:=Critère1, Operator:=Opérateur
                              Else
                                   .Range.AutoFilter Field:=N°, Criteria1:=Critère1, Operator:=Opérateur, Criteria2:=Critère2
                              End If
                         End With
                    End If
               Next
          End If
    
     Next

End Sub

=SIERREUR(SOMMEPROD(INDIRECT("tb_"&C$2&"[Heures]");--(INDIRECT("tb_"&C$2&"[Type]")=$B3);--(INDIRECT("tb_"&C$2&"[Visible]")));"-")