Macro Excel

Option Explicit

Sub FiltrerDonnees()
Dim Feuille As Worksheet
Dim Nom As String, Secteur As String, Zone As String, MoisCherche As String
Dim Mois As Byte, i As Byte
Dim Val As Variant
Dim Lig As Long, DrLg As Long

'Vidage des données de la feuille "Tableau_De_résultat"
With Sheets("Tableau_De_résultat")
    DrLg = .Cells(65536, 2).End(xlUp).Row
    If DrLg > 2 Then
        .Range(.Cells(3, 2), .Cells(DrLg, 8)).ClearContents
    End If
End With

'On stocke les valeurs choisies feuille Sélection dans les variables prévues à cet effet
With Sheets("Sélection")
    Nom = .Cells(3, 2)
    Secteur = .Cells(6, 2)
    MoisCherche = .Cells(8, 2)
    i = 1
    For Each Val In Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
        If Val = MoisCherche Then
            Mois = i
            Exit For
        Else
            i = i + 1
        End If
    Next
    Zone = .Cells(11, 2)
End With

'Choix de la ou des feuilles à filtrer selon si indifférent ou pas
If Zone = "Indifférent" Then
'Si indifférent alors on boucle sur toutes les feuilles
For Each Feuille In ThisWorkbook.Worksheets
    'on exclut de la boucle les feuilles sélection et tableau
    If Feuille.Name <> "Sélection" And Feuille.Name <> "Tableau_De_résultat" Then
        With Sheets(Feuille.Name)
            DrLg = .Cells(65536, 1).End(xlUp).Row
            For Lig = 2 To DrLg
                'si les valeurs contenues dans nos variables sont présentes aux bons endroits
                If .Cells(Lig, 1) = Nom And Month(.Cells(Lig, 2)) = Mois And .Cells(Lig, 4) = Secteur Then
                    'alors on copie la plage concernée vers la feuille résultats, en fin de tableau
                    .Range(.Cells(Lig, 1), .Cells(Lig, 7)).Copy Sheets("Tableau_De_résultat").Cells(65536, 2).End(xlUp).Offset(1, 0)
                End If
            Next
        End With
    End If
Next Feuille
Else
'si pas indifférent, on ne gère que la feuille concernée par la zone
    With Sheets(Zone)
        DrLg = .Cells(65536, 1).End(xlUp).Row
        For Lig = 2 To DrLg
            If .Cells(Lig, 1) = Nom And Month(.Cells(Lig, 2)) = Mois And .Cells(Lig, 4) = Secteur Then
                .Range(.Cells(Lig, 1), .Cells(Lig, 7)).Copy Sheets("Tableau_De_résultat").Cells(65536, 2).End(xlUp).Offset(1, 0)
            End If
        Next
    End With
End If
End Sub