Sub ExporterHoraireC()
Dim F As Worksheet
Set F = ActiveSheet
F.Copy 'nouveau document
ActiveSheet.Protect "abc", UserInterfaceOnly:=True
ActiveSheet.UsedRange = F.UsedRange.Value 'copie les valeurs
ActiveSheet.DrawingObjects.Delete 'supprime le bouton
MsgBox "Enregisrez ce document où vous voulez..."
End Sub