Sub Macro1() '<-Macro de l'enregistreur de macros
Range("D9:J43,G57,G59").Select
Range("G59").Activate
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
End Sub
Sub MacroSimplifiée_A()
On Error Resume Next
Range("D9:J43,G57,G59").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
Sub MacroSimplifiée_B()
On Error Resume Next
Range("D9:J43,G57,G59").SpecialCells(2, 23) = ""
End Sub
Sub MacroSimplifiée_C()
[DATAS] = ""
End Sub