XL 2013 Exportation conditionnelle

Sub Exporter()
Dim chemin$, mois As Byte, w As Worksheet, P As Range, mem
Application.ScreenUpdating = False
Application.DisplayAlerts = False
chemin = ThisWorkbook.Path & "\"
mois = Month(Sheets("RECAP").[K1])
For Each w In Worksheets
    If w.Name <> "RECAP" Then
        w.Visible = xlSheetVisible 'si la feuille est masquée
        w.Copy
        With ActiveWorkbook
            Set P = Intersect(.Sheets(1).UsedRange, .Sheets(1).Range("B3:M" & w.Rows.Count))
            If Not P Is Nothing Then
                mem = P.Columns(mois)
                P.ClearContents 'RAZ
                P.Columns(mois) = mem
             End If
            .SaveAs Filename:=chemin & w.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
            .Close
        End With
    End If
Next
End Sub