Private Sub CommandButton1_Click()
' Macro enregistrée le 03/11/2005 par Grenier Stéphane
Range('Dossier') = Range('Dossier') + 1
Dim cell As Range
Dim Maplage As Range
Set Maplage = Range('champ')
ActiveSheet.Unprotect
With ActiveSheet
For Each cell In Maplage
If cell.MergeCells = True Then
cell.MergeArea.ClearContents
Else
cell.ClearC ontents
End If
Next cell
End With
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Range('C11').Select
End Sub