Sub MacroA()
'(tableau 1)
Range("A2:E8").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"$F$13:$F$14"), CopyToRange:=Range("A10"), Unique:=False
'(tableau 2)
Range("G2:K8").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"$F$13:$F$14"), CopyToRange:=Range("G10"), Unique:=False
'masquer tableau initial
Rows("1:9").EntireRow.Hidden = True
'Revenir à l'état d'origine
If MsgBox("Effacer le filtre?", vbYesNo, "RAZ") = vbYes Then
Rows("1:9").EntireRow.Hidden = False
[A10:E1000].Clear
[G10:K1000].Clear
End If
End Sub