Sub copie()
Dim Wb As Workbook
'Application.Calculation = xlCalculationManual
nf = [Large(AA:AA, 1)]
fichier = ThisWorkbook.Path & "\Extraction.xls"
Set Wb = GetObject(fichier)
With Workbooks(ThisWorkbook.Name)
lg = .Sheets("VTE QUERY").Range("AA65536").End(xlUp).Row + 1
For n = 6 To Wb.Sheets("Extraction").Range("AA65536").End(xlUp).Row
If Wb.Sheets("Extraction").Range("AA" & n) > nf Then
.Sheets("VTE QUERY").Range("A" & lg & ":AB" & lg).Value = _
Wb.Sheets("Extraction").Range("A" & n & ":AB" & n).Value
lg = lg + 1
End If
Next n
End With
'Wb.Close
'Application.Calculation = xlCalculationAutomatic
End Sub