Option Explicit
Sub Copie_feuilles()
Dim Ws As Worksheet, Wkdest As Workbook, Mois As String
Dim chemfich As String, NomMois As String, derlig As Long
Application.ScreenUpdating = False
chemfich = ThisWorkbook.Path & "\Classeur2.xls"
Workbooks.Open chemfich
If Err <> 0 Then MsgBox "fichier non trouvé": Exit Sub
derlig = ThisWorkbook.Sheets("resultats exploitation").Range("a" & Rows.Count).End(xlUp).Row
ThisWorkbook.Sheets("resultats exploitation").Range("a1:k" & derlig).Copy _
Workbooks("Classeur2.xls").Sheets(1).Range("a1")
Mois = MonthName(Month(Date))
Set Wkdest = Workbooks("Classeur2.xls")
Wkdest.Activate
For Each Ws In ThisWorkbook.Worksheets
NomMois = Right(Ws.Name, Len(Ws.Name) - 10)
If NomMois = Mois Then
Ws.Copy after:=Wkdest.Sheets(Wkdest.Sheets.Count)
End If
Next Ws
ActiveWorkbook.Close True
ThisWorkbook.Sheets(1).Activate
End Sub