Public Sub filtre()
Set MonName = ThisWorkbook
If MonName.Sheets(1).AutoFilterMode Then MonName.Sheets(1).AutoFilterMode = False
Workbooks.Open ThisWorkbook.Path & "\filtre.xlsx"
Set MonFiltre = Workbooks("filtre.xlsx")
If MonFiltre.Sheets(1).AutoFilterMode Then MonFiltre.Sheets(1).AutoFilterMode = False
MonFiltre.Sheets(1).Range("a5").Select
End Sub