Macro pour transferer des lignes dans excel

Bonjour.
voilà,j'ai utilisé une macro qui transfert des lignes contenant des données
de types différents vers une autre feuille "excel".
Mais ma macro copie toutes les lignes du tableau de la première feuille en les regroupant selon les critères de la colonne "A" "Redouble" "passe" .....
je veux que ma macro affiche dans la deuxième feuille seulement les lignes contenant un critère défini "Passe" par exemple...comment faire? et dois je ajouter ?

voilà ma macro
Sub OO_Mise_à_jour_données()

'OO_Mise_à_jour_données Macro
'
Columns("A:H").Select
Selection.Copy
Sheets(Array("ÇáÞÑÇÑÇÊ")).Select
Sheets("ÇáÞÑÇÑÇÊ").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
Sheets("ÇáÞÑÇÑÇÊ").Select
Range("A2").Select
ActiveWorkbook.Worksheets("ÇáÞÑÇÑÇÊ").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ÇáÞÑÇÑÇÊ").Sort.SortFields.Add Key:=Range("A2:A50" _
), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="Passe", _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("ÇáÞÑÇÑÇÊ").Sort.SortFields.Add Key:=Range("B2:B50" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("ÇáÞÑÇÑÇÊ").Sort
.SetRange Range("A1:H50")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("ÇáÈíÇäÇÊ").Select
Range("I9").Select
End Sub

merci d'avance