Windows(FicPos).Activate
Workbooks(FicPos).Sheets(SheetMagasin).Select
NbLigneMag = Cells.SpecialCells(xlCellTypeLastCell).Row
NbColMag = Cells.SpecialCells(xlCellTypeLastCell).Column
Workbooks(FicPos).Sheets(SheetMagasin).Activate
ActiveSheet.Range(Cells(2, 1), Cells(NbLigneMag, NbColMag)).AutoFilter field:=11, criterial:=Marq