XL 2013 Code VBA

Bonjour,

SVP veuillez m'aider à combiner les 4 equipes et les années. Le code ci dessous ne fonctionne pas, je vous demande de vouloir bien apporter la correction appropriée. Je vous remercie.
Avoir une plage dans la feuille "Selection3" issue de la plage source "G4:Q20000" de la feuille nommée "Base" avec seulement les 4 équipes dont chacune est saisie dans sa cellule respective à savoir "A1" , A2"; "A3" ,"A4" et les trois années "H1" "H2" "H3" de la feuille nommée "Base". Enlever les filtres. Auparavant déproteger puis proteger.

Sub FiltrerEquipesEtAnnees()
Dim wsBase As Worksheet
Dim wsSelection3 As Worksheet
Dim equipe1 As String, equipe2 As String, equipe3 As String, equipe4 As String
Dim annee1 As String, annee2 As String, annee3 As String
Dim rngSource As Range, rngDestination As Range
' Déprotéger la feuille "Base"
Sheets("Base").Unprotect
' Définir les noms des équipes et des années
equipe1 = Sheets("Base").Range("A1").Value
equipe2 = Sheets("Base").Range("A2").Value
equipe3 = Sheets("Base").Range("A3").Value
equipe4 = Sheets("Base").Range("A4").Value
annee1 = Sheets("Base").Range("H1").Value
annee2 = Sheets("Base").Range("H2").Value
annee3 = Sheets("Base").Range("H3").Value
' Définir les feuilles source et destination
Set wsBase = ThisWorkbook.Sheets("Base")
Set wsSelection3 = ThisWorkbook.Sheets("Selection3")
' Définir la plage source
Set rngSource = wsBase.Range("G4:Q2000")
' Filtrer les données selon les critères des équipes et des années
rngSource.AutoFilter Field:=14, Criteria1:=equipe1, Operator:=xlOr, Criteria2:=equipe2, Operator:=xlOr, Criteria3:=equipe3, Operator:=xlOr, Criteria4:=equipe4
rngSource.AutoFilter Field:=8, Criteria1:=annee1, Operator:=xlOr, Criteria2:=annee2, Operator:=xlOr, Criteria3:=annee3
' Copier les données filtrées dans la feuille "Selection3"
Set rngDestination = wsSelection3.Range("A1")
rngSource.SpecialCells(xlCellTypeVisible).Copy
rngDestination.PasteSpecial Paste:=xlPasteAll
' Supprimer les filtres
rngSource.AutoFilter
' Protéger la feuille "Base"
Sheets("Base").Protect
' Protéger la feuille "Selection3"
Sheets("Selection3").Protect
End Sub