Sub CopieVersDevisGénéral()
'
' CopieVersDevisGénéral Macro
'
'
Dim dlv As Long
Range("A15:CE40").Select
Selection.Copy
Workbooks.Open(Filename:="T:\Tableau Devis SF\2010-Devis général.xls"). _
RunAutoMacros Which:=xlAutoOpen
'mettre msgbox pour choisir mois (janvier ou février ou ...) quand
'le mois est choisis, relancer macro qui doit ouvrir la feuille
'"mois" choisis et poursuivre avec la ligne ci-dessous
dlv = Range("a65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'mettre msgbox pour que l'utilisateur inscrive numéro de devis
'dans la colone A de la ou des lignes ajoutées, quand le ou les
'numéros de devis sont saisis, relancer macro
ActiveWorkbook.Save
ActiveWindow.Close
Selection.ClearContents
Range("A15:E15").Select
Sheets("Saisie").Select
ActiveWindow.SelectedSheets.Visible = False
Range("A11").Select
End Sub