Dim var, moisdemande
Dim compteligne
Range('O2').Select
compteligne = 2 '
While compteligne <> 3000
var = Mid(Cells(compteligne, 10).Value, 4, 2)
ActiveCell.Value = var
compteligne = compteligne + 1
ActiveCell.Offset(0, 0).Activate
Range('O' & compteligne).Select
Wend
Range('O1').Select
ActiveCell.FormulaR1C1 = 'Mois MEP'
Range('O2').Select
Columns('O:O').Select
Selection.NumberFormat = '#0'
Pword = InputBox('Tapez le mois désiré (ex: 6 pour juin)')
moisdemande = Pword
Range('A1').Select
Selection.AutoFilter
Selection.AutoFilter Field:=12, Criteria1:='Terminé / MEP'
Selection.AutoFilter Field:=11, Criteria1:='X'
Selection.AutoFilter Field:=15, Criteria1:=moisdemande
ActiveWindow.ScrollColumn = 1
Range('A70').Select
Range(Selection, Selection.End(xlDown)).Select
Range('A70:N684').Select
Selection.Copy
ChDir _
'R:\\01 - Sujets transverses\\00 - Suivi et Documents communs\\ZDEM Portefeuille des demandes\\Gestionnaire des demandes\\Suivi demandes GMP'
Workbooks.Open Filename:= _
'R:\\01 - Sujets transverses\\00 - Suivi et Documents communs\\ZDEM Portefeuille des demandes\\Gestionnaire des demandes\\Suivi demandes GMP\\ZDEM-GMP-2005 Demandes GMP terminées en 2005 et années précédentes.xls'
Range('A2').Select
ActiveCell.SpecialCells(xlLastCell).Select
Range('A23').Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close