Pour ajouter des conditions, il faut modifier la plage de critère dans la feuille Tab 1, il est possible d'ajouter des colonnes, des lignes.
Il faut aussi potentiellement modifier:
If Not .Range("B6") = "" Then
.Range("B6").CurrentRegion.Clear
et
FeuilleSource.Range("B1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=FeuilleCible.Range("A1").CurrentRegion, CopyToRange:=FeuilleCible.Range("A6:W6"), Unique:=False
Si la plage de critère contient des lignes en plus, ça va décaler l'endroit où on veut exporter le résultat du filtre, donc il faudra modifier le numéro de ligne 6 par autre chose, ou alors mettre la plage de critère dans une autre feuille. Je vous invite à vous renseigner sur la réalisation d'un filtre avancé, c'est ce que j'ai utilisé.