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