Sub valid()
Dim Sht_Name As String
Dim sht As Worksheet
Application.ScreenUpdating = False
With Sheets("Horaires")
Sht_Name = Format(.Range("G2"), "mmmm-yyyy") & " " & .Range("C2").Value
.Cells.Select
Selection.Copy
End With
Set sht = Sheets.Add
With sht
With .Cells
.Select
ActiveSheet.Paste
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
.Name = Sht_Name
End With
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub