[Python] Copier certains éléments d'une liste

Sub Extraction()
Dim FichierSource As String, FichierDestination As String
Dim X As Integer, Y As Integer, Z As Integer
Dim XMini As Integer, XMaxi As Integer, YMini As Integer, YMaxi As Integer

FichierSource = "F:\f1.txt"
FichierDestination = "F:\f2.txt"
XMini = 234: YMini = 459
XMaxi = 243: YMaxi = 468

Close
Open FichierSource For Input As #1
Open FichierDestination For Output As #2

While Not EOF(1)
Input #1, X, Y, Z
If (X >= XMini And X <= XMaxi) And (Y >= YMini And Y <= YMaxi) Then
Write #2, X, Y, Z
End If
Wend
Close
MsgBox "Extraction terminée"

End Sub

#A represente ta liste 
A=[(652,300,100),(653,321,102),(654,326,101),(658,324,106)] 
#B represente l'extraction 
B=[(x,y,z) for x,y,z in A if x in range(651,655) and y in range(321,325)] 
print B